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本 书 详细 介绍 了 REXX 的 语法 、 函 数 和 子 例 程 的 使 用 .REXX 与 关键 子 系统 的 交互 .REXX 程序 的 
执行 和 调试 等 ,并 辅 以 案例 和 实验 ,是 大 型 主机 专业 系统 管理 方向 的 重要 教材 ,全 书 共 分 10 章 , 是 一 本 
理论 与 实践 并 重 的 教材 。 

本 书 的 第 1 章 介绍 大 型 主机 上 常用 的 几 种 脚本 语言 ;第 2 章 曾 述 主机 脚本 语言 REXX 的 由 来 发 
展 、 特 点 和 组 成 等 内 容 ; 第 3 章 详细 介绍 REXX 的 基本 语法 ,包括 指令 .表达 式 、 程 序 控制 流 等 ;第 4 章 介 
绍 函 数 和 子 例 程 的 使 用 ;第 5 章 重点 阐述 REXX 数据 处 理 技术 ,包括 REXX 强大 的 数据 解析 功能 、 数 据 
栈 和 文件 操作 ;第 6 章 介 绍 REXX 与 主机 子 系统 或 工具 的 交互 ,包括 TSO, MVS 控制 台 、JES ISPF 和 
USS 等 ;第 7 章 介绍 了 REXX 与 ISPF 的 交互 ;第 8 章 介绍 REXX 程序 的 执行 方式 ;第 9 章 介绍 REXX 
程序 的 调试 技术 ;第 10 章 介绍 3 个 综合 案例 ;第 11 章 针对 REXX 主要 知识 点 设计 了 REXX 实验 ,并 附 
有 实验 答案 。 

本 书 可 以 作为 高 等 院 校 计算 机 学 院 、 软 件 学 院 有 关 大 型 主机 课程 的 教材 ,也 可 以 作为 从 事 大 型 主机 
工作 的 相关 技术 人 员 ,尤其 是 系统 管理 人 员 的 自学 书籍 ,也 可 供 希 望 学 习 和 了 解 REXX 编程 技术 的 人 
员 参 考 。 
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对 于 系统 管理 员 而 言 ， 掌 握 脚 本 编程 技术 的 重要 性 不 言 而 喻 。 不 管 如 今 系 统 架构 如 
何 庞大 和 复杂 ， 系 统管 理 维护 的 很 多 日 常 的 基础 性 工作 还 是 完全 可 以 程式 化 、 机 械 性 地 
定义 和 描述 ， 并 通过 机 器 加 以 执行 完成 的 。 系 统 脚本 编程 不 仅仅 是 将 管理 员 从 重复 的 键 
盘 敲 击 和 命令 输入 中 解放 出 来 ， 更 重要 的 是 最 大 程度 地 避免 了 重复 性 工作 所 可 能 带 来 的 
“疲劳 性 ”错误 ， 对 于 拥有 最 高 系统 权限 的 管理 员 而 言 ， 这 些 错误 很 可 能 是 灾难 性 的 。 而 
另 一 方面 ， 各 种 脚本 语言 也 从 简单 的 “命令 执行 序列 ”发 展 成 为 了 更 加 精巧 完善 且 易 于 
掌握 的 快速 开发 语言 ， 吸 引 了 更 为 广泛 的 关注 ， 并 且 延 伸 和 扩展 到 了 更 为 高 级 和 复杂 的 
应 用 之 中 。 

如 同 Perl 之 于 UNIX/Linux 一 样 ， 对 于 大 型 机 操作 系统 平台 z/OS 而 言 ，REXX 以 其 
与 z/OS 系统 组 件 的 广泛 交互 支持 的 特点 、 强大 实用 的 文本 处 理 功能 以 及 极其 简单 灵活 的 
结构 化 语法 ， 成 为 大 型 机 平台 上 使 用 最 为 流行 的 一 种 脚本 语言 。 熟 练 掌握 REXX 的 语言 
特性 能 极 大 提升 大 型 机 系统 管理 的 效率 和 质量 ， 也 为 各 种 进一步 的 复杂 应 用 与 扩展 提供 
了 可 能 性 。 本 书 作者 在 实际 工作 中 发 现 ，REXX 语言 相关 资料 颇 为 繁杂 ， 且 由 于 其 语言 
本 身 的 灵活 性 , 相关 的 应 用 描述 和 技术 实践 分 散 于 不 同 的 IBM 官方 发 布 的 相关 文档 章节 
以 及 开发 交流 社区 的 文章 之 中 ， 加 之 有 中 文 详 述 的 提 及 更 是 少 之 又 少 ， 造 成 了 一 些 实践 
工作 中 学 习 的 不 便 。 本 书 作为 第 一 本 系统 讲述 大 型 机 REXX 编程 实践 的 中 文 图 书 ， 剖 在 
通过 汇编 总 结 相关 文档 中 与 日 常 应 用 最 为 紧密 的 知识 点 ， 并 结合 作者 大 量 的 实际 应 用 经 
验 和 体会 ,力图 使 读者 对 REXX 语言 编程 有 一 个 直观 全 面 的 认识 ,为 更 加 深入 钻研 REXX 
编程 技术 以 及 大 型 机 系统 管理 的 复杂 扩展 应 用 打下 基础 。 

本 书 在 编写 、 完 稿 至 出 版 期 间 一 直 得 到 IBM 公司 大 学 合作 部 的 大 力 支持 ， 特 别 是 李 
晶 辉 经 理 和 万 泽 春 经 理 对 本 书 出 版 的 支持 和 肯定 ; 黄 小 平 高 级 工程 师 对 本 书 内 容 的 编写 、 
定稿 都 提出 了 宝贵 的 指导 性 意见 ; 同济 大 学 软件 学 院 为 本 书 的 出 版 提供 了 有 力 的 支持 
软件 学 院 的 很 多 学 生 包括 但 不 局 限于 郭 意 亮 、 张 更 华 、 冯 学 奋 、 刘 构 蕉 和 帷 苑 等 都 参与 
了 本 书 的 文字 校 稿 工作 ; 本 书 还 获得 “IBM 大 学 合作 项 目 书籍 出 版 资助 计划 ”的 资助 
并 获得 “同济 大 学 十 二 五 规划 教材 ”支持 ， 在 此 一 并 表示 应 心 的 感谢 。 


大 型 主机 系统 管理 REXX 编程 详解 


本 书 遵 循 由 浅 入 深 的 原则 ， 采 用 了 一 般 计算 机 编程 语言 讲解 的 通用 逻辑 顺序 ， 大 致 
可 分 为 概括 介绍 、 语 法 与 程序 规范 、 子 系统 交互 以 及 执行 /调试 /实例 分 析 四 大 部 分 ， 全书 
穿插 了 常用 知识 点 与 实例 分 析 ， 和 希望 对 读者 有 所 启迪 。 在 成 书 过 程 中 作者 虽 查 阅 了 大 量 
文献 、 编 写 调试 实例 程序 验证 力图 严 订 ， 但 难免 有 所 朴 漏 ， 望 各 位 业内 同仁 以 及 读者 予 
URE. 
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主机 脚本 语言 概述 


脚本 语言 (Script Programming Language) 是 为 了 缩短 传统 的 编写 一 编译 一 链接 一 运 
行 (Edit-Compile-Link-Run) 过 程 而 设计 的 计算 机 编程 语言 。 各 种 不 同 的 计算 机 平台 中 
存在 很 多 可 用 的 “组 件 ” 人 们 开发 了 对 应 的 系统 脚本 语言 ， 使 之 能 够 快速 组 合 这 些 系统 
平台 中 可 用 的 “组 件 ” 从 而 完成 特定 需求 的 脚本 开发 。 

在 设计 一 个 应 用 程序 时 ， 用 户 可 能 需要 考虑 选择 编译 型 语言 或 者 解释 型 语言 来 编写 
程序 源 代码 ， 而 这 两 种 类 型 的 语言 都 有 各 自 的 优 缺 点 。 通 常 ， 确 定 使 用 解释 型 语言 是 缘 
于 开发 时 间 的 限制 或 者 未 来 程序 的 修改 方便 的 考虑 ， 而 在 确定 使 用 解释 型 语言 的 同时 也 
付出 了 代价 : 即 系统 需要 以 更 高 的 执行 开销 换取 了 开发 速度 。 这 是 由 于 在 每 次 执行 时 ， 
解释 型 语言 的 每 一 行 源码 需要 被 重新 翻译 解释 ， 对 系统 而 言 意味 着 巨大 的 开销 。 因 此 ， 
解释 型 语言 通常 更 加 适合 于 即兴 需求 ， 而 不 是 那些 预定 需求 。 

脚本 语言 和 一 般 程序 设计 语言 的 一 个 重要 不 同 在 于 脚本 语言 通常 是 被 解释 执行 ， 而 
系统 程序 设计 语言 通常 是 被 编译 执行 。 解 释 型 语言 由 于 不 需要 编译 时 间 ， 而 是 通过 快速 
的 转换 ， 使 用 户 能 快捷 地 编写 并 运行 程序 。 由 于 这 种 特性 ， 在 系统 管理 以 及 测试 中 ， 程 
序 员 们 编写 了 各 种 脚本 来 执行 例 行 操作 或 者 一 次 性 任务 。 而 脚本 程序 因为 其 灵活 、 简 单 、 
易于 开发 等 特点 ， 在 主机 系统 管理 领域 有 着 广泛 的 应 用 。 例 如 ， 系 统管 理 员 可 能 需要 执 
行 一 些 常规 并 且 确 定性 的 任务 ， 例 如 输入 相应 命令 、 提 交 某 个 作业 、 检 查 数据 集 状 态 、 
为 特定 的 程序 分 配 数据 集 、 打 印 文件 等 ， 通 过 编写 相应 的 系统 脚本 ， 将 这 些 操作 所 需 的 
交互 命令 和 任务 组 织 成 脚本 文件 的 形式 ， 能 显著 减少 在 这 些 例 行 任务 上 所 花费 的 时 间 。 
将 这 些 执行 例 行 任务 所 需要 的 所 有 指令 或 操作 集合 到 一 个 系统 脚本 程序 中 ， 可 以 节约 大 
量 人 工 操作 时 间 、 降 低 任务 执行 的 错误 概率 、 增 强 功能 可 复 用 性 ， 并 能 极 大 提升 系统 管 
理工 作 的 效率 。z/OS 中 所 提 及 的 系统 脚本 语言 主要 包括 CLIST、REXX 和 USS 中 的 
SHELL， 后 面 将 分 别 予 以 介绍 。 


1.1 CLIST 语言 简介 


CLIST 语言 是 一 种 解释 型 语言 。 和 其 他 解释 型 语言 编写 的 程序 类 似 ，CLIST 程序 也 
易于 编写 和 测试 。 术 语 CLIST ( 读 作 See List) 表示 “命令 (Command) 的 序列 (List)” 这 
是 由 于 大 多 数 的 基本 CLIST 程序 都 是 TSO/E 的 命令 的 序列 。 当 用 户 调用 一 个 这 样 的 


EN 
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CLIST 程序 时 ， 它 将 按 顺序 调用 对 应 的 TSO/E 命令 。 
CLIST 编程 语言 主要 用 于 以 下 几 个 方面 。 
e 执行 日 常 的 例 行 任务 (例如 输入 TSO/E 命令 )。 
e 调用 其 他 的 CLIST 程序 。 
e 调用 其 他 语言 编写 的 应 用 程序 。 
e ISPF 应 用 程序 (例如 显示 面板 以 及 控制 应 用 程序 流 )。 
一 个 CLIST 程序 可 以 执行 范围 广泛 的 各 种 任务 ， 主 要 可 以 归 为 以 下 三 类 。 
e 执行 日 常 例 行 任务 的 CLIST。 
o 作为 结构 化 应 用 程序 的 CLIST。 
e 管理 其 他 语言 编写 的 应 用 程序 的 CLIST。 


1. 执行 日 常 例 行 任务 的 CLIST 

用 户 可 以 编写 相应 的 CLIST 程序 ,它们 能 显著 减少 用 户 在 这 些 日 常 的 例 行 任务 上 所 
花费 的 时 间 。 通 过 将 执行 任务 所 需要 的 所 有 指令 集合 到 一 个 CLIST 程序 中 ， 用 户 可 以 减 
少 花 费时 间 、 键 盘 敲 击 次 数 以 及 任务 执行 中 的 错误 ， 并 且 提 升 用 户 的 工作 效率 。 一 个 
CLIST 程序 由 单纯 的 TSO/E 命令 组 成 ， 或 者 由 TSO/E 命令 与 CLIST 语句 所 混合 组 成 。 


2. 作为 结构 化 应 用 程序 的 CLIST 
由 于 CLIST 语 言 包括 了 编写 一 个 完整 的 ,结构 化 的 应 用 程序 的 基本 工具 。 任 何 CLIST 
都 可 以 调用 另外 的 CLIST 程序 ， 并 作为 一 个 “ 嵌 套 的 ”CLIST 程序 引用 。CLIST 同样 包 
含 了 独立 的 子 程序 , 称 之 为 “ 子 过 程 ”。 WERI CLIST 程序 和 子 过 程 使 用 户 能 够 将 CLIST 
程序 划分 成 逻辑 单元 ， 并 将 公共 功能 在 一 处 实现 。 

在 交互 式 应 用 程序 中 ，CLIST 可 以 调用 命令 显示 ISPF 面板 。 反 之 ，ISPF 面板 也 可 
以 根据 用 户 在 面板 上 的 输入 ， 来 调用 对 应 的 CLIST 程序 。 


3. 管理 其 他 语言 编写 的 应 用 程序 的 CLIST 

假设 用 户 需 要 访问 用 其 他 语言 编写 的 应 用 程序 ， 但 这 些 应 用 程序 的 相关 接口 可 能 不 
易 使 用 或 记忆 ， 需 要 编写 CLIST 程序 在 用 户 和 应 用 程序 之 间 提供 一 个 易于 使 用 的 接口 ， 
这 要 好 过 重新 编写 一 个 新 的 应 用 程序 。 一 个 CLIST 程序 可 从 终端 上 接收 消息 并 通过 程序 
逻辑 判断 用 户 需 求 。CLIST 程序 可 以 设置 环境 并 执行 命令 来 调用 程序 ， 完 成 所 相应 的 任 
务 请 求 。 


4. CLIST 语言 的 其 他 应 用 以 及 特色 

除了 请 求 执 行 TSO/E 命令 ，CLIST 程序 也 可 以 执行 更 为 复杂 的 编程 任务 。CLIST 语 
言 包括 了 用 户 在 开发 大 的 结构 化 应 用 程序 时 所 需 用 到 的 编程 工具 。CLIST 程序 可 以 执行 
任何 复杂 度 的 任务 ， 从 显示 一 系列 全 屏 面板 到 管理 其 他 语言 所 编写 的 应 用 程序 。 

CLIST 语言 特色 如 下 。 

e 具有 处 理 数值 数据 所 需 的 广泛 的 算术 与 逻辑 操作 符 集 。 

e 具有 很 强 的 处 理 字符 数据 的 字符 串 处 理 功 能 。 

e CLIST 语句 能 很 好 地 用 于 构建 程序 、 执 行 VO 操作 、 定 义 和 修 改变 量 、 进 行 错误 
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处 理 以 及 警示 中 断 。 


5. 如 何 执行 CLIST 程序 

要 执行 一 个 CLIST 程序 ， 可 使 用 EXEC 命令 。 在 ISPF 的 命令 行 中 ， 命 令 开头 需要 
输入 TSO。 fE TSO/E EDIT 或 者 TEST 模式 下 ， 在 执行 EXEC 操作 时 使 用 EXEC 子 命令 
(执行 在 EDIT 或 者 TEST 模式 下 的 CLIST 程序 只 能 够 请 求 执行 对 应 的 EDIT 或 者 TEST 
的 子 命令 和 CLIST 语句 , 但 用 户 可 以 使 用 END 子 命令 以 结束 EDIT 或 者 TEST 模式 , 使 
CLIST 程序 能 够 请 求 执行 TSO/E 命令 )。 


1.20 REXX 语言 简介 


REXX (REstructured eXtended eXecutor) 即 重 构 的 可 扩充 执行 器 语言 ， 是 IBM 在 
20 世纪 80 年 代 所 发 明 的 一 种 程序 设计 语言 。 主 要 用 于 IBM 的 主机 系统 ， 但 在 大 部 分 其 
他 平台 上 也 可 以 找到 对 应 解释 器 或 编译 器 。REXX 是 IBM 随 其 大 型 主机 、 中 型 机 操作 系 
统 和 其 他 更 低 端 操作 系统 一 起 捆绑 的 脚本 和 命令 语言 。REXX 几乎 可 以 在 世界 上 任何 操 
作 系统 上 和 运行。 用户 可 以 免费 下 载 用 于 各 版 本 的 Windows, Linux, UNIX, BSD, Mac OS 
和 DOS 以 及 很 多 其 他 系统 的 REXX。 它 甚至 可 以 在 用 于 手持 设备 的 三 大 主流 操作 系统 
Windows CE, Palm OS 和 Symbian/EPOC32 上 运行 。 

REXX 也 可 用 在 Java 环境 中 ， 例 如 REXX 的 一 个 分 支 叫 做 NetRexx 能 够 与 Java 完 
全 无 颖 的 协同 工作 。 NetREXX 程序 可 以 直接 使 用 任何 Java 类 , 并 可 以 用 来 编写 任何 Java 
类 。 它 将 Java 的 安全 性 和 性 能 特点 带 给 了 REXX 程序 ， 并 将 REXX 的 算术 运算 和 简单 
性 的 特点 带 给 了 Java. 而 作为 单一 语言 的 NetREXX,， 可 以 同时 用 于 脚本 开发 和 应 用 程序 
开发 。 


1.2.1 一 个 简单 的 REXX 程序 


下 面 举例 说 明 REXX 语言 的 易学 和 强大 。 例 如 计算 1+2+…+10， 然 后 把 这 些 数 字 和 
所 得 的 和 显示 出 来 。REXX 有 强大 的 字符 和 数字 处 理 功能 ， 可 以 轻松 实现 。 在 这 里 也 可 
以 看 出 REXX 程序 很 容易 读 懂 。 


/* REXX */ 
/* Count to ten and add the numbers up */ 
sum = 0 
do count = 1 to 10 
say count 
sum = sum + count 
end 


say "The sum of these numbers is" sum"." 
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122 REXX 语言 的 一 些 不 足 
本 章 介 绍 REXX 程序 中 存在 的 一 些 不 足 。 


1. 难以 维护 

REXX 作为 一 种 结构 化 语言 ， 它 使 程序 和 算法 能 够 以 清晰 和 结构 化 的 方式 书写 。 但 
是 ， 因 为 REXX 的 程序 格式 非常 自由 ,变量 的 使 用 非常 灵活 ， 使 得 对 不 规范 的 REXX 程 
序 难 以 维护 。 所 以 在 编写 REXX 程序 时 ， 应 该 尽量 在 开始 部 分 写 清楚 程序 的 作用 及 主要 
的 算法 ， 在 关键 语句 和 变量 处 加 以 注释 说 明 。 


2. 执行 效率 不 高 

REXX 是 一 种 解释 型 和 编译 型 语言 。 正 如 前 面 提 到 的 那样 ， 这 种 解释 型 语言 和 其 他 
诸如 COBOL 语言 的 不 同 之 处 在 于 ， 在 它 执行 之 前 不 需要 编译 REXX 源 程序 。 也 正 是 因 
为 REXX 的 这 一 特性 ， 导 致 源 程序 在 运行 时 才 被 逐 句 解释 执行 ， 效 率 比 编译 执行 的 语言 
要 差 。 但 是 用 户 可 以 选择 在 执行 之 前 编译 REXX 源 程 序 生成 可 执行 代码 (Load Module), 
从 而 大 大 提高 其 执行 速度 。 


1.2.3 REXX 语言 的 主要 应 用 


REXX 编程 语言 的 典型 应 用 如 下 。 

执行 日 常 例 行 任务 ， 例 如 输入 TSO/E 命令 。 
调用 其 他 REXX 程序 。 

调用 其 他 语言 编写 的 应 用 程序 。 

ISPF 应 用 程序 。 

对 问题 的 一 次 性 快速 解决 方案 。 

一 般 而 言 ，REXX 可 以 方便 地 对 主机 文件 进行 读 写 等 操作 。 如 果 有 大 量 的 主机 文件 
需要 手工 查找 、 修 改 等 并 且 这 些 操 作 都 具有 共性 ， 不 妨 使 用 REXX 帮忙 解决 。 例 如 ， 用 
户 想 将 一 个 程序 库 中 所 有 使 用 了 某 一 些 子 程序 的 主 程序 全 部 找 来 ;就 可 以 用 REXX 解决 ; 
如 果 让 用 户 对 所 有 程序 都 加 上 一 行 一 模 一 样 的 句子 ， 这 样 手工 修改 起 来 势必 会 很 麻烦 ， 
而 且 工作 量 也 非常 庞大 ， 就 可 以 考虑 写 一 个 REXX 程序 ， 如 果 用 户 想 在 一 个 程序 中 访问 
两 个 数据 库 ， 在 COBOL 中 实现 起 来 相对 麻烦 ， 而 REXX 就 显得 方便 很 多 ; 还 有 REXX 
可 以 通过 调用 SDSF 服务 查找 打印 用 户 需要 的 作业 信息 ， 通 过 调用 系统 命令 显示 或 修改 
系统 配置 等 。 后 面 将 详细 介绍 关于 REXX 语言 语法 和 应 用 的 有 关内 容 。 


1.3 USS 的 Shell 简介 


USS (UNIX System Service) 所 提供 的 Shell 功能 ， 顾名思义 ,就 是 z/OS UNIX 交互 
接口 所 提供 的 面向 UNIX 命令 和 Shell 语言 的 解释 器 。 所 支持 的 Shell 脚本 语言 同 标准 
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UNIX 的 类 似 ,zOS UNIX 有 两 个 版 本 的 Shell, Bl z/OS Shell 和 tesh Shell ,它们 统称 z/OS 
UNIX Shell. 

z/OS Shell 基于 UNIX System V Shell， 其 中 部 分 功能 源 自 著名 的 UNIX Korn Shell. 
该 Shell 遵守 POSIX 标准 1003.2， 并 被 采用 为 ISO/IEC International Standard 9945-2: 
1992。 同 时 ，ZOS Shell 向 上 兼容 Bourne Shell. 

tesh Shell 完全 兼容 并 加 强 了 Berkeley UNIX C Shell, csh 是 一 个 通用 的 语言 解释 器 ， 
既 可 用 于 交互 式 Shell， 也 可 用 作 Shell 脚本 的 解释 器 。 

Shell 脚本 语法 简要 介绍 如 下 。 
Shell 命令 的 组 合 
While 循环 
For 循环 
DO.....DONE 
IF...ELIF...ELSE....fi 
TEST 用 于 条 件 测试 ， 下 例 中 代码 用 于 目录 的 测试 


if 

test-d$1 
then 

echo "$ 1 is a directory " 
fi 


可 以 看 到 ，Shell 脚本 中 可 以 使 用 yOS UNIX Shell 命令 、 分 支 语 句 、 变 量 以 及 环境 
设 定 等 。 同 一 般 的 UNIX Shell 脚本 类 似 ，USS 的 Shell 程序 就 是 一 个 包含 若干 行 Shell 
BE z/OS UNIX 命令 ,依据 Shell 的 语法 规则 所 写成 的 文件 。 解 释 器 将 Shell 命令 以 脚本 形 
式 书写 和 存储 ， 并 以 命令 序列 的 方式 在 Shell 下 解释 执行 。 如 果 用 户 熟 悉 其 他 平台 下 的 
Shell 脚本 书写 ， 相 信 对 USS 下 的 Shell 应 该 能 够 很 快 掌握 运用 。 下 面 是 一 个 Shell 脚本 
的 示例 ， 该 例 中 脚本 程序 检测 某 个 Java 类 (java memory.class) 是 否 存在 ， 如 果 存 在 ， 
则 执行 该 类 ， 若 不 存在 ， 脚 本 检测 该 类 的 源 代码 (java memoryjava) 是否 存在 ， 如 果 存 
在 ， 则 将 源码 编译 后 执行 。 
i£ 
test -f java_memory.class 
then 
echo "the Java program is present. Let's execute it now" 
java java_memory 
elif 
test -f java memory.java 
then i 
echo "the Java source is there . Let's compile it first!" 
javac java memory.java 
echo "Now we will execute the Java code." 


java java memory 


zs] 
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else 
echo " there is no Java source present to compile" 
Ei 


z/OS 的 Shell 编程 环境 以 及 所 支持 的 Shell 脚本 , 与 TSO/E 环境 以 及 所 支持 的 CLIST 


和 REXX 脚本 类 似 ， 都 是 将 完成 特定 任务 或 者 一 组 任务 所 对 应 的 命令 或 者 所 调用 的 相关 
过 程 ， 组 织 成 脚本 程序 的 形式 ， 并 由 对 应 的 环境 解释 执行 ， 提 高 与 环境 交互 工作 的 效率 。 


REXX 可 以 用 于 多 种 平台 之 上 , 这 是 由 REXX 本 身 设计 的 特点 所 决定 的 。 REXX 以 
约 20 条 指令 作为 一 个 小 的 核心 。 这 个 核心 周围 有 大 约 70 个 内 置 函 数 。 这 种 设计 使 得 
REXX 本 身 可 以 得 到 最 大 程度 的 扩展 和 延伸 , 使 其 可 以 使 用 包括 数据 库 访问 .GUI、XML、 
Web 服务 器 编程 、MIDI 接口 在 内 的 各 种 形式 的 接口 。 这 些 易 扩展 性 不 仅 使 用 户 可 以 快 
速 开 发 出 简易 程序 ， 也 可 以 使 REXX 用 于 持久 健壮 性 程序 的 开发 。 事 实 上 ， 借 助 特定 的 
跨 平台 接口 ，REXX 脚本 在 Linux、Windows、 大 型 主机 、 手 持 设 备 之 间 具 有 广泛 的 可 
移植 性 。REXX 内 核 结构 如 图 2-1 所 示 。 


20 多 条 指令 


70 多 个 内 置 函 数 


外 部 命令 、 函 数 、 服 务 、 
d£. WT. HL. LR 


图 2-1 REXX 内 核 结构 9 


本 章 将 详细 介绍 有 关 REXX 语言 本 身 的 功能 和 使 用 ， 其 中 对 语言 语法 规范 的 介绍 是 
与 具体 平台 实现 无 关 的 通用 性 内 容 。 


2.1 REXX 的 发 展 历史 


REXX 最 初创 建 于 1979 年 ,由 当时 IBM 英国 实验 室 的 工程 师 Mike Cowlishaw 设计 ， 


QD 摘自 http://www.ibm.com/developerworks/cn/db2/library/techarticles/dm-0508fosdick/index.html 
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作为 一 种 新 的 脚本 语言 , 其 主要 目的 是 为 了 替代 EXEC 和 EXEC29 语 言 。1982 年 , REXX 
被 加 入 VM/System 的 第 三 个 版 本 ， 正 式 作 为 IBM 的 产品 推出 。 

REXX 被 设计 为 一 种 可 以 运行 于 所 有 操作 系统 平台 上 的 脚本 语言 ， 最 初 在 主机 平台 
上 使 用 。 从 这 个 角度 来 看 ，REXX 可 以 说 是 TCL 和 Python 等 脚本 语言 的 先行 者 。 此 外 ， 
REXX 设计 者 的 另 一 目标 是 将 REXX 设计 为 PLI 脚本 语言 的 简化 版 本 , 以 便于 程序 员 的 
使 用 和 学 习 。 

REXX 推出 以 后 , 多 年 来 IBM 致力 于 旗下 各 系列 的 操作 系统 都 能 够 支持 REXX 的 运 
行 , 包括 z/OS, VM/CMS, VM/GCS, MVS TSO/E、 AS/400, VSE/ESA. AIX, CICS/ESA. 
PC DOS 以 及 OS/2。 同 时 ，REXX 也 被 其 他 厂商 的 操作 系统 支持 ， 包 括 Novell NetWare, 
Windows. Java 以 及 Linux®. 

1996 年 ， 美 国 国家 标准 协会 (American National Standards Institution, ANSDz/fii Y 
REXX 的 标准 ANSI X3.274-1996。 

20 世纪 90 年 代 中 期 ， 两 种 REXX 的 新 版 本 逐渐 开始 流行 ， REXX 开始 支持 面向 
对 象 。 

(D) NetRexx: REXX 的 Java 版 本 ， 将 REXX 编译 /解释 成 Java 二 进 制 代 码 。 
NetRexx 完全 没有 保留 字 ， 并 且 使 用 了 Java 对 象 模型 ， 因 此 并 不 是 完全 向 上 兼容 于 传统 
的 REXX。 

(2) Object Rexx: 作为 REXX 的 面向 对 象 版 本 ，Object Rexx 基本 完全 向 上 兼容 于 传 
统 的 REXX。 

REXX 在 开源 的 道路 上 也 一 直 走 在 前 面 。 早 在 20 世纪 90 年 代 就 有 多 个 免费 版 本 的 
REXX 被 广泛 使 用 。2000 年 前 后 ，REXX 语言 联盟 (RexxLa.org) “取代 IBM， 全 面 负责 
REXX 语言 的 维护 和 管理 工作 。2004 年 10 月 ，IBM 宣布 将 Object Rexx 的 源 代码 开源 ; 
2005 年 2 H, Open Object Rexx (ooRexx) 的 第 一 个 版 本 正式 推出 。 

目前 ，REXX 主要 运行 在 Windows. Linux. AIX, z/OS, z/VM 等 平台 上 。 


2.2 各 种 版 本 的 REXX 


43 于 历史 原因 ，REXX 的 大 部 分 早期 实现 已 不 再 是 人 们 关注 的 焦点 。 然 而 ， 目 前 流 
行 的 几 种 版 本 的 REXX 实现 依然 可 以 用 于 包括 Linux, Windows 和 MacOSX 在 内 的 多 种 
操作 系统 平台 ， 这 些 REXX 版 本 包括 Regina、NetRexx、Open Object Rexx (ooRexx)。 


(D EXEC 和 EXEC2 都 是 运行 在 IBM Virtual Machine/Conversational Monitor System (VM/CMS) 操作 系统 上 的 解释 
型 脚本 语言 ， 后 被 REXX 所 取代 。 

@ REXX 的 其 他 版 本 也 运行 在 Atari, AmigaOS, UNIX (many variants), Solaris, DEC. Windows, Windows CE. 
Pocket PC. DOS, Palm OS, QNX, OS/2. Linux, BeOS, EPOC32, AtheOS, OpenVMS, OpenEdition, Apple Macintosh, 
Mac OS X 等 平台 上 。 

图 RexxLaorg 全 称 为 The Rexx Language Association， 是 独立 的 非 营利 性 组 织 ， 致 力 于 推广 和 使 用 REXX 语言 的 
应 用 。 
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1. Regina 

Regina 是 本 地 执行 文件 ， 用 户 可 以 从 免费 软件 源 代码 的 方式 获得 ， 或 者 直接 获取 诸 
多 操作 系统 平台 已 经 预 编译 的 安装 包 , 用 户 可 以 像 安 装 任何 其 他 语言 解释 器 一 样 安装 它 。 
Regina 的 两 大 目标 是 : 

(1). 100963 FF ANSI 标准 。 

(2) 尽 可 能 地 支持 更 多 平台 。 Regina 的 3.1 版 本 已 经 实现 了 第 一 个 目标 , 目前 Regina 
完全 支持 所 有 的 ANSI 特性 ， 而 Regina 目前 也 已 经 支持 了 大 多 数 主流 操作 系统 平台 ?。 

Regina 最 新 的 版 本 是 3.5， 可 以 访问 其 官方 网 站 : http://regina-rexx.sourceforge.net 以 
获得 更 多 信息 。 


2. NetRexx 

IBM NetRexx 是 REXX 和 Java 的 “混合 物 ”， 结 合 了 REXX 语法 清晰 易 用 的 特点 ， 
Java 语言 面向 对 象 的 特性 ， 以 及 Java 平 台 的 健壮 性 和 可 移植 性 。 因 此 ，NetRexx 可 以 说 
是 真正 意义 上 的 通用 语言 一 一 适用 于 脚本 开发 和 应 用 开发 ， 同 时 既 支持 解释 机 制 也 支持 
编译 机 制 。NetRexx 在 语法 上 继承 于 传统 的 Rexx， 同 时 类 似 于 Jython 或 者 Jacl, NetRexx 
将 Rexx 源 代 码 编译 为 Java 字 节 代码 ,并 可 以 在 JVM 中 运行 作为 结果 生成 的 .class 文件 。 
NetRexx 被 编译 成 Java 字 节 码 后 ， 可 以 运行 在 任何 JVM E. (最 初 NetRexx 仅 支 持 Java 
1.0 版 本 的 JVM， 现 在 已 经 不 受 限制 。) 

2011 £6 H 8 H, IBM 宣布 将 NetRexx 的 3.0 版 本 开源 ， 并 交 给 负责 管理 该 语言 的 
Rexx 语言 联盟 管理 。 


3. Open Object Rexx 

Open Object Rexx 作为 Object Rexx 开源 后 的 免费 版 本 实现 ， 继 承 了 Object Rexx 的 
特性 ， 包 含 了 传统 Rexx 语法 的 以 人 为 本 的 特点 ， 以 及 目前 更 流行 的 面向 对 象 特性 
CooREXX 支持 继承 、 多 态 、 数 据 封 装 等 特性 )。 用 户 可 以 按照 传统 Rexx 的 编程 方法 进行 
编程 ， 或 者 按照 面向 对 象 的 方式 编程 ， 甚 至 将 这 两 种 方法 混合 在 一 起 。 此 外 ，ooRexx 的 
向 上 兼容 性 使 得 其 依然 可 以 被 IBM 早期 的 REXX 编译 器 支持 ， 同 时 其 他 开源 版 本 的 
REXX 编译 器 也 能 很 好 地 支持 ooRexx。 

Open Object Rexx 的 最 新 版 本 是 4.10， 可 以 访问 其 官方 网 站 : http://www.oorexx.org 
以 获得 更 多 信息 。 


2.3 主机 上 的 REXX 


通常 用 户 在 主机 平台 上 使 用 的 REXX， 是 REXX 的 TSO/E 实现 版 本 ，TSO/E REXX 
可 以 在 z/OS 下 的 任何 地 址 空间 中 运行 。 在 TSO/E 环境 下 ， 用 户 编写 的 REXX 脚本 可 以 
(D Regina 目前 支持 大 部 分 UNIX 平台 (Linux. FreeBSD, Solaris, AIX, HP-UX 等 ) ， 以 及 OS/2、eCS、DOS、 


Win9x/Me/NT/2000/XP, Amiga, AROS、QNX4.x、QNX6x、BeOS、MacOS X, EPOC32, AtheOS, OpenVMS, SkyOS 和 
OpenEdition. 
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调用 TSO/E 服务 并 且 在 TSO/E 的 地 址 空间 中 运行 。 同 时 ， 用 户 也 可 以 编写 REXX 应 用 
并 使 其 在 TSO/E 外 的 地 址 空间 中 运行 。 

此 外 ,z/OS UNIX 对 TSO/E REXX 进行 了 一 系列 扩展 ,使 得 REXX 程序 拥有 了 访问 
UNIX 可 调用 服务 的 能 力 。 这 一 系列 扩展 被 称 为 syscall 命令 ， 其 命名 与 其 对 应 的 可 调用 
服务 一 一 对 应 。 关于 z/OS UNIX 扩展 的 详细 信息 , 请 参考 IBM 白皮书 z/OS Using REXX 
and z/OS UNIX System Services . 


24 REXX 特性 


REXX 语言 的 特性 表现 在 以 下 几 个 方面 。 


1. 用 途 多 样 

REXX 既 适 合 编程 初学 者 使 用 ， 又 适合 经 验 丰 富 的 专业 从 业 人 员 ， 这 样 的 特性 在 编 
程 语 言 中 并 不 常见 。 

这 是 因为 REXX 具有 通用 的 语言 结构 、 语 法 的 高 可 读 性 (阅读 REXX 程序 几乎 和 阅 
读 普通 的 英语 文章 一 样 轻松 ) 以 及 自由 的 书写 规范 (不 同 于 COBOL、REXX 几乎 没有 格 
式 要 求 ) 等 特点 ， 这 使 得 刚 涉足 编程 领域 的 新 手 非常 容易 掌握 这 门 语言 。 

同时 ，REXX 对 于 其 宿主 环境 的 命令 良好 支持 (如 在 主机 TSO/E 环境 下 ， 用 REXX 
脚本 调用 TSO/E 命令 非常 容易 )， 使 得 用 REXX 编写 的 应 用 能 够 支持 更 为 强大 的 功能 ， 
同时 也 扩展 了 REXX 本 身 的 计算 能 力 , 因此 有 经 验 的 编程 人 员 常 常 要 使 用 REXX 来 帮助 
完成 系统 的 日 常 维护 工作 ， 或 者 根据 需求 编写 一 些 实用 有 效 的 REXX 应 用 。 


2. 可 读 易 用 

REXX 语言 使 用 了 很 多 可 读 性 强 或 者 使 用 广泛 的 关键 字 和 指令 ， 例 如 SAY. PULL. 
EXIT, IF-THEN, DO-END 等 。 不 同 于 某 些 初等 级 别 的 编程 语言 使 用 缩写 作为 关键 字 ， 
REXX 的 关键 字 和 指令 使 用 常见 的 单词 ， 这 样 大 大 增强 了 语句 的 可 读 性 。 同 时 ，REXX 
对 标点 、 特 殊 字 符 以 及 符号 的 需要 已 经 减少 到 最 小 。 

REXX 的 语法 构建 始终 以 良好 的 可 读 性 和 简易 性 为 标准 ， 这 使 得 使 用 者 在 书写 、 调 
试 、 维 护 程序 时 ， 更 为 简单 和 方便 。 


3. 书写 自由 

相 比 于 其 他 编程 语言 ，REXX 对 书写 规范 的 限制 极 少 ， 单 条 或 多 条 的 语句 既 可 以 单 
行书 写 ， 也 可 分 成 多 行 ， 语 句 不 需要 像 COBOL 或 者 汇编 语言 一 样 从 特定 的 某 列 起 始 ; 
在 实际 编程 中 ， 用 户 可 以 在 一 行 语句 中 跳 过 多 个 空格 ， 甚 至 完全 跳 过 整个 空 行 ，REXX 
对 字母 的 大 小 写 不 敏感 , 用 户 可 自由 选择 输入 大 小 写 或 混合 输入 ,其 程序 语义 不 受 影响 。 
此 外 ,和 典型 的 主机 编程 语言 (COBOL PLI 主机 汇编 语言 ) 的 另 一 大 不 同 就 是 , REXX 
对 行 标号 也 无 需求 。 

REXX 没有 全 局 性 的 保留 关键 字 , 这 使 得 用 户 不 必 去 了 解 那 些 不 需要 用 到 的 关键 字 ， 
也 对 语言 的 应 用 扩展 意义 重大 。 
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4. 单一 数据 类 型 

REXX 只 有 一 种 单一 的 数据 类 型 ， 就 是 字符 串 ， 因 此 变量 使 用 时 不 需要 特别 声明 。 
REXX 通过 变量 的 内 容 和 使 用 情况 动态 地 定义 变量 。 在 需要 时 , REXX 将 自动 转换 数据 ， 
而 其 中 的 很 多 细节 工作 系统 自动 化 完成 ， 对 用 户 而 言 是 透明 的 。 

例如 ， 如 果 用 户 将 “字面 上 ”为 数字 的 字符 串 赋 给 一 个 变量 ， 那 么 用 户 就 可 以 对 该 
变量 上 实施 相应 的 算术 运算 ， 而 不 用 考虑 其 数据 底层 的 含义 和 表示 一 一 这 个 特性 确实 非 
常 吸 引 人 一 一 它 使 得 程序 员 的 编程 工作 变 得 非常 方便 和 高 效 。 

下 面 的 例子 是 一 个 数据 表示 的 代码 片段 。 


x-1 /* 变量 x 表示 字符 串 “1” 同时 也 代表 数字 1 */ 
y = 227 /* 变量 y 表示 字符 串 “2” 同时 也 代表 数字 2 */ 
say a+b /* 显示 atb 的 结果 为 数字 3 (作为 数字 进行 运算 ) */ 
say a Il b /* 显示 a 和 bb 的 字符 串 拼接 结果 为 “12” 
c = "Hello" /* 变 量 c 表示 字符 串 “hello” Ah 
say a+c /* 显示 结果 出 错 无 法 完成 类 型 转换 */ 


/* SYNTAX: Bad arithmetic conversion (error 41) */ 


同时 ，REXX 对 于 变量 的 长 度 也 并 没有 限制 ， 在 内 存 允许 的 情况 下 ，REXX 变量 的 
长 度 可 以 任意 长 。 然 而 ，REXX 对 变量 名 的 长 度 是 有 要 求 的 ， 其 上 限 为 250 个 字符 〈 实 
际 上 这 是 一 个 相当 宽松 的 限制 ， 因 为 几乎 没有 人 将 变量 名 定义 到 如 此 之 长 )。 

REXX 对 于 变量 名 的 上 限 如 此 之 高 ， 很 大 程度 上 是 为 了 更 好 地 支持 复合 变量 
(Compound Variable)， 复 合 变量 的 概念 与 数组 非常 接近 ， 通 过 对 于 复合 变量 的 使 用 ， 极 
大 地 增强 了 REXX 的 功能 性 和 实用 性 。 下 面 就 是 一 个 复合 变量 的 例子 。 


NAME.Y.Z 
关于 复合 变量 的 详细 信息 ， 详 见 第 3 章 。 


5. 强大 的 内 置 函数 

REXX 提供 了 强大 的 内 置 函数 ， 可 以 完成 诸多 的 文本 和 数字 的 查找 、 比 较 和 处 理 等 
工作 ， 同 时 也 提供 了 格式 化 操作 、 算 术 计算 以 及 位 操作 、 输 入 输出 、 转 换 等 功能 。 

REXX 的 字符 串 操作 功能 十 分 强大 , 并 且 由 于 语言 本 身 对 字符 串 的 长 度 没有 限制 ( 包 
括 其 代表 数字 时 ), 因而 使 得 用 户 能 够 十 分 方便 地 实现 对 字符 串 拼 接 、 分解 、 匹 配 等 操作 ， 
完成 各 种 文本 处 理 和 输出 输入 ， 从 而 免 去 了 程序 员 在 使 用 其 他 编程 语言 时 所 经 常 面 对 的 
字符 串 和 输入 输出 处 理 等 带 来 的 困扰 。 


6. 跟踪 调试 方便 
当 REXX 程序 运行 错误 或 异常 时 ， 解 释 器 /编译 器 能 给 出 对 应 的 错误 /异常 的 解释 说 
明 ， 并 显示 于 运行 终端 。 此 外 ， 使 用 TRACE 语句 也 能 够 帮助 用 户 方便 快捷 地 调试 跟踪 
程序 。 

REXX 本 身 包含 了 一 个 异常 及 错误 处 理 程序 ， 可 对 很 多 常见 的 错误 条 件 〈 例 如 语法 
错误 或 算术 上 滋 ) 设 陷 ， 并 将 控制 流转 移 到 专门 的 错误 或 异常 处 理 例 程 中 。 异 常设 陷 是 
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一 种 通过 单独 一 个 例 程 来 管理 常见 错误 的 标准 方式 。 


7. 编译 解释 型 语言 

TSO/E 将 REXX 作为 一 种 解释 型 Cinterpreted) 语言 实现 。 也 就 是 说 ， 当 一 个 REXX 
脚本 运行 时 ， 语 言 解释 器 可 以 直接 运行 每 一 条 REXX 语句 ， 而 无 须 事先 将 程序 编译 
Ccompile) 为 机 器 语言 ， 也 无 须 在 运行 之 前 先 做 链接 dink) 的 工作 。 

同时 ，IBM 也 支持 使 用 REXX 编译 器 ， 而 事实 上 IBM 针对 REXX/370 的 编译 器 可 
以 为 开发 者 和 使 用 者 带 来 巨大 的 好 处 。 这 些 好 处 包括 : 提升 性 能 ， 降 低 系 统 装载 量 ， 保 
护 源 代码 和 程序 ， 提 升 效率 、 质 量 以 及 编译 后 程序 的 可 移植 性 。 


2.5 REXX 的 组 成 


REXX 拥有 丰富 多 样 的 组 件 ， 这 使 得 REXX 成 为 编程 者 的 一 大 有 力 工 具 。 

REXX 主要 包含 以 下 几 部 分 。 

(D 指令 : REXX 中 包括 5 种 类 型 的 指令 ， 分 别 是 关键 字 、 赋 值 、 标 签 、 空 子 句 和 
命令 调用 。 关 于 指令 的 详细 内 容 ， 将 在 第 3 章 中 具体 介绍 。 

(2) 内 置 函数 : 此 类 函数 由 编译 器 直接 支持 ， 因 而 能 够 提供 方便 的 处 理 功能 。 

(3) TSO/E 外 部 函数 : 此 类 函数 由 TSO/E 环境 支持 ， 当 REXX 进行 某 些 特 定 操作 
时 ，TSO/E 外 部 函数 会 与 系统 进行 交互 。 

(4) 数据 栈 函 数 〈data stack): 数据 栈 提 供 数 据 的 临时 存储 功能 ， 以 辅助 TO 操作 以 
及 其 他 类 型 的 操作 。 


2.6 第 一 个 REXX 程序 


按照 学 习 各 编程 语言 的 惯例 ， 第 一 个 REXX 程序 是 一 个 Hello World 小 程序 ， 其 代 
fu. 


/* REXX */ /* 标志 出 该 脚本 为 REXX 脚本 */ 
SAY "WHAT'S YOUR NAME?" /* 输出 一 句 提示 语句 */ 
PULL NAME /* 将 用 户 输入 存 入 变量 NAME */ 


SAY 'HELLO WORLD! THIS IS' NAME /* 输入 结果 */ 


Hello World 小 程序 的 主要 功能 是 让 用 户 输入 自己 的 名 字 ， 然 后 把 欢迎 语句 和 用 户 的 
名 字 一 起 打印 出 来 。 其 代码 非常 简单 ， 总 共 只 有 4 行 。 

第 一 行 的 REXX 注释 ， 是 为 了 帮助 主机 系统 区 分 REXX 脚本 和 CLIST 脚本 。 在 默 
认 的 情况 下 ， 系 统 会 优先 将 此 类 脚本 作为 CLIST 脚本 来 解释 。 而 如 果 在 程序 的 首 句 标注 
T/* REXX */， 则 系统 会 将 此 脚本 作为 REXX 脚本 解释 。 因 此 ， 在 通常 情况 下 ， 在 主 
机 环境 下 编写 的 REXX 程序 ， 都 会 在 开头 添加 /* REXX */ERE 

第 二 行 的 输出 语句 ， 将 一 些 信息 输出 到 屏幕 ， 以 提示 用 户 进行 操作 。SAY 关键 字 的 
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作用 即 为 向 输出 流 中 写 入 一 行 数据 ， 跟 在 SAY 之 后 的 表达 式 可 以 是 一 个 变量 ; 也 可 以 像 
本 程序 一 样 ， 直 接 是 一 行 字 符 串 ; 甚至 可 以 是 变量 和 字符 串 的 组 合 输出 。 如 果 在 SAY 之 
后 没有 跟随 任何 内 容 ， 则 输出 一 个 空 的 字符 串 。 

第 三 行 的 输入 语句 , 旨 在 将 用 户 的 输入 存 入 一 个 变量 (此 处 即 为 NAME 变量 ), PULL 
关键 字 的 作用 是 将 外 部 数据 队列 中 队列 的 头 部 读 取 到 指定 的 字符 串 中 ,在 TSO 下 环境 下 ， 
外 部 数据 队列 即 为 数据 栈 。 当 数据 栈 为 空 的 时 候 ，PULL 语句 会 从 终端 输入 或 者 是 输入 
流 中 (如 使 用 JCL 执行 REXX 程序 ， 可 以 指定 SYSTSIN 作为 输入 流 ) 读 取 数 据 。 在 本 
程序 中 ，PULL 语句 从 用 户 在 终端 的 输入 读 取 数据 。 

KIRE, PULL 指令 相当 于 PARSE UPPER PULL 指令 的 简写 ， 也 即 是 将 读 取 的 数据 
以 大 写 的 形式 存 入 到 指定 的 字符 串 变 量 中 。 

另外 可 以 发 现 ， 程 序 在 未 事先 声明 NAME 变量 的 情况 下 ， 直 接 使 用 了 该 变量 。 这 反 
ILY REXX 语言 的 便捷 好 用 的 特点 ， 但 同时 也 会 带 来 一 些 问 题 ， 如 果 总 是 直接 使 用 变量 
而 不 事先 定义 ， 那 程序 的 可 读 性 和 易 维 护 性 都 会 有 所 下 降 。 因 此 ， 建 议 养 成 一 个 良好 的 
编程 习惯 ， 对 于 在 程序 中 常用 到 的 变量 ， 还 是 要 统一 进行 事先 声明 。 

第 四 行 的 输出 语句 ， 将 之 前 获得 的 用 户 输入 和 另 一 些 信息 一 并 输出 到 终端 ， 可 以 看 
到 ，SAY 关键 字 之 后 的 输出 非常 自由 ， 可 以 将 变量 和 字符 串 结合 在 一 起 同时 输出 。 

此 外 ,为 了 便于 在 TSO/E 环境 下 进行 REXX 脚本 编程 ,可 以 在 编译 数据 集 时 以 REXX 
模式 进行 高 亮 提 示 。 在 命令 栏 中 输入 如 下 语句 ， 即 可 打开 REXX 语句 提示 。 


HI REXX 


随后 可 以 发 现 ， 程序 代 码 (包括 变量 及 操作 语句 ) 用 绿色 标示 ， 关 键 字 用 红色 标示 ， 
字符 串 (如 TSO/E 命令 ) 用 白色 标示 ， 而 注释 语句 则 用 青色 标示 。 这 些 高 亮 提 示 可 以 很 
好 地 辅助 用 户 进行 编程 ， 以 及 帮助 检查 基本 的 语法 拼写 ， 减 少 错误 的 出 现 。 

Hello World 程序 的 执行 结果 如 下 ， 到 这 里 ， 第 一 个 REXX 程序 的 编写 已 经 完成 了 ， 
REXX 学 习 之 旅 近 出 了 第 一 步 。 

WHAT'S YOUR NAME? 


Emma 
HELLO WORLD! THIS IS EMMA 


237 REXX 执行 


执行 REXX 最 简单 的 方式 ， 是 在 进入 存放 REXX 脚本 的 PDS 数据 集 后 ， 直 接 在 需 
要 执行 成 员 左 侧 的 命令 栏 中 输入 EXEC， 即 可 执行 该 程序 。 通 过 这 种 方式 执行 REXX fé 
序 的 示例 如 图 2-2 所 示 。 
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EDIT yourid.REXX Row 00001 of 00003 
Command ===> Scroll ===> PAGE 
Name Prompt Size Created Changed ID 
EXEC REXX1 


REXX2 
REXX3 


图 2-2 REXX 程序 执行 方式 1 


当然 也 可 以 在 命令 栏 输入 完整 的 EXEC 命令 ， 显 式 调 用 一 个 REXX 脚本 。 其 结果 如 
图 2-3 所 示 。 


EDIT yourid.REXX Row 00001 of 00003 
Command ===> TSO EXEC 'yourid.REXX(REXX1)' exec Scroll ===> PAGE 
Name Prompt Size Created Changed ID 
REXX1 
REXX2 
REXX3 


图 2-3 REXX 程序 执行 方式 2 


要 注意 的 是 ,EXEC 命令 最 后 的 exec 参数 ,是 系统 用 于 判断 执行 的 脚本 是 否 是 REXX 
脚本 的 标志 。 

这 种 执行 方式 ， 适 合 学 习 编 写 REXX 程序 时 进行 练习 操作 时 使 用 ; 然而 对 于 日 常 使 
用 的 系统 脚本 ， 还 是 建议 将 编写 好 的 REXX 脚本 放 入 对 应 的 系统 库 CSYSEXEC 或 
SYSPROC) 中 ， 以 便于 维护 和 使 用 。 

如 果 REXX 程序 已 经 存放 在 了 系统 库 中 , 则 用 户 可 以 直接 在 命令 栏 指 定 执行 该 程序 ， 
而 无 须 给 出 其 所 在 的 数据 集 名 ， 图 2-4 就 是 这 样 一 个 示例 。 


ISPF Primary Option Menu 
Option ===> TSO SYSLIB. 


0 Settings Terminal and user parameters User ID . : IBMUSER 
1 View Display source data or listings Time. . . : 08:45 

2 Edit Create or change source data Terminal. : 3278 

3 Utilities Perform utility functions Screen. . :1 

4 Foreground Interactive language processing Language. : ENGLISH 
5 Batch Submit job for language processing Appl ID . : ISR 

6 Command Enter TSO or Workstation commands TSO logon : DBPROC9G 
7 Dialog Test Perform dialog testing TSO prefix: IBM100S 
8 LM Facility Library administrator functions System ID : SOW1 

9 IBM Products IBM program development products MVS acct. : FB3 
10SCLM SW Configuration Library Manager Release . : ISPF 6.1 
11 Workplace ISPF Object/Action Workplace 


图 2-4 REXX 程序 执行 方式 3 


除了 前 台 调 用 的 方式 ， 还 可 以 通过 批 处 理 (Batch) 的 方式 ， 使 用 JCL 提交 作业 来 执 
fr REXX 程序 。 本 例 中 执行 了 yourid.REXX (REXX1) 的 REXX 脚本 ， 其 JCL 语句 如 下 。 
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//EXECREXX JOB NOTIFY=&SYSUID 
//TMP EXEC PGM=IKJEFT01 
//SYSEXEC DD DSN=yourid.REXX,DISP=SHR 
//SYSTSPRT DD SYSOUT=A 
//SYSTSIN DD * 
REXX1 
/* 


该 程序 的 执行 结果 ， 可 以 查看 SDSF 中 相应 作业 执行 情况 的 信息 ， 如 图 2-5 所 示 。 


SDSF OUTPUT DISPLAY EXECREXXJOBO6152  DSID 102 LINEO COLUMNS 02- 81 


COMMAND INPUT ===> SCROLL ===> PAGE 
doopopopoopeeoopbpepeoepbopeeeeeeeeneeer TOP OF DATA Sebeeeeececepecopepeobeopnepoepbebponernor 


READY 
REXX1 
THIS IS A REXX PROGRAM 
READY 
END 


dopoiodopcdonioononrdononeonenee i BOTTOM OF DATA PASAREA 


图 2-5 REXX 程序 执行 方式 4 


2.8 REXX 调试 


REXX 提供 了 方便 的 调试 跟踪 机 制 ， 方 便 用 户 对 程序 进行 调试 和 问题 诊断 ， 主 要 的 
调试 方法 包括 以 下 几 方 面 的 内 容 。 

e TRACE 指令 调试 

e RC/SIGL 特殊 变量 ; 

e 交互 式 调试 跟踪 机 制 。 


1. TRACE 指令 调试 

TRACE 调试 指令 有 两 个 常用 选项 ， 即 C (Command) fI E bend 在 REXX 
程序 使 用 TRACE C 指令 后 ， 所 有 之 后 的 命令 调用 将 被 追踪 报告 ， 在 这 些 命令 执行 完成 
后 ， 执 行 返 回 码 亦 会 显示 在 屏幕 上 ; 若 在 REXX 程序 中 使 用 TRACE E 命令 ， 则 任何 执 
行 后 产生 非 零 返 回 码 的 命令 都 将 被 追踪 报告 ， 并 将 该 命令 的 返回 码 显 示 到 屏幕 上 。 更 多 
A TRACE 指令 的 有 关内 容 ， 可 参考 IBM 白皮书 z/OS TSO REXX Reference. 


2. REXX 特殊 变量 RC 和 SIGL 

REXX 包含 了 两 个 特殊 变量 RC 和 SIGL， 这 两 个 变量 的 值 由 系统 赋予 ， 可 在 任何 需 
要 的 时 刻 用 于 表达 式 中 ; 同时 也 可 同一 般 变 量 一 样 ， 使 用 相关 的 REXX 指令 进行 操作 。 

RC imd (Return Code) ,其 值 在 每 次 命令 执行 后 ， 都 将 被 重 置 为 最 新 命令 执 
行 完成 的 返回 码 。 在 命令 执行 无 错时 ，RC 置 为 0; 当 有 命令 执行 出 错时 ，RC 将 被 置 为 
出 错 命 令 的 返回 码 。 

SIGL 表示 在 REXX 程序 执行 过 程 中 控制 流 发 生 转 变 时 的 代码 行 号 。 在 REXX 程序 
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中 使 用 函数 调用 、Signal 以 及 Call 指令 等 方式 都 将 使 当前 的 程序 控制 流 发 生 转 向 ， 此 时 
系统 将 SIGL 的 值 置 为 最 近 一 次 控制 流转 向 发 生 时 的 代码 行 标号 。 

在 REXX 程序 中 ， 综 合 使 用 上 述 的 特殊 变量 ， 以 及 SIGNAL ON ERROR 指令 可 以 
帮助 程序 员 定 位 错误 发 生 的 位 置 ， 方 便 进一步 的 程序 调试 ， 见 下 例 : 

/* REXX */ 

SIGNAL ON ERROR 

"ALLOC DA(new.data) LIKE(old.data)" 


"LISTDS ?" 
EXIT 
ERROR: 


SAY 'The return code from the command on line' SIGL 'is' RC 
/* 显 示 : The return code from the command on line 8 is 12 */ 


3. 交互 式 调试 机 制 

交互 式 调试 机 制 使 程序 员 可 以 交互 式 控制 跟踪 每 一 步 的 REXX 程序 执行 。 在 需要 的 
时 候 程序 员 可 以 暂停 REXX 程序 的 执行 ， 并 可 选择 继续 跟踪 下 一 条 指令 执行 、 插 入 新 指 
令 语句 、 重 新 执行 前 面 的 指令 等 操作 ， 也 可 以 改变 或 终止 继续 交互 跟踪 调试 。 通 过 该 机 
制 可 使 程序 员 交 互 灵活 地 控制 REXX 程序 ， 方 便 地 进行 程序 调试 。 可 通过 前 面 提 到 的 
TRACE 指令 的 “?” 选 项 或 者 TSO/E 下 的 EXECUTIL TS 命令 选项 启动 交互 式 调试 机 制 。 

下 例 使 用 了 TRACE ?R (TRACE ?Results) 指 令 可 以 交互 调试 REXX 程序 中 的 每 条 
指令 : 


>k kk kkk kkk KREKKE K kkk kkk kkk kkk kkk k y 

TRACE ?R 

ARG dsname . 

LISTDS dsname 

IF RC = 0 THEN 

SAY 'LISTDS is executed successful." 
ELSE 

SAY 'Return code from LISTDS was' RC 


如 果 在 使 用 EXEC 调用 该 程序 执行 时 ， 通 过 命令 行 传 入 给 LISTDS 的 参数 是 NONE 
(数据 集 USERID.NONE 不 存在 )， 则 会 出 现 以 下 交互 式 调试 结果 : 


3 *-* ARG dsname 

>>> "NONE " 
IRX0100I +++ Interactive trace. TRACE OFF to end debug, ENTER to continue. 
+++ 


按 回 车 键 继续 下 一 步调 试 ， 显 示 出 相应 的 错误 信息 和 返回 码 如 下 : 
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4 *-* LISTDS dsname 
>>> "LISTDS HEHE" 
IKJ58503I DATA SET SP005.NONE NOT IN CATALOG 
+++ RC(20) +++ 


1 交互 调试 界面 可 知 ，TRACE OFF 可 结束 该 调试 画面 。 命 令 EXECUTIL TS(Trace 
Start)/TE(Trace End) 与 TRACE ?R/OFF 作用 基本 等 效 。 更 多 有 关 命 令 TRACE 以 及 
EXECUTIL 命令 的 有 关内 容 ， 请 参阅 IBM 白皮书 z/OS TSO REXX Reference. 
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1 于 REXX 有 简单 易学 的 语言 特点 以 及 自由 灵活 的 编程 风格 , 使 得 REXX 编程 并 不 
复杂 ， 相 信 接 触 过 其 他 编程 语言 的 读者 可 以 很 快 写 出 一 个 简单 的 REXX 程序 ， 例 如 : 
[CO eee ek REX Xokckokeekekedekekeke ek eee f 


SAY 'HELLO WORLD." 


基本 的 REXX 组 成 包括 了 指令 和 内 置 函数 两 部 分 ， 此 外 TSO/E 环境 下 的 REXX 还 
提供 了 外 部 函数 以 及 数据 堆栈 函数 等 。 本 章 着 重 介绍 REXX 的 基本 语法 和 指令 的 编写 。 


3.1 指令 概览 


有 许多 编程 语言 都 对 指令 的 编写 形式 有 着 严格 的 规定 ， 如 在 CLIST 中 ， 指 令 必须 为 
大 写字 母 ， 在 汇编 指令 中 ， 要 求 从 指定 位 置 开 始 书写 。 但 是 在 REXX 中 ， 对 语法 的 要 求 
比较 宽泛 ， 指 令 可 以 从 任意 位 置 开 始 写 ， 在 任意 位 置 结 束 ， 一 条 指令 可 以 跨越 多 行 ， 一 
行 也 可 以 容纳 多 条 指令 , 并 且 指 令 的 大 小 写 形式 也 是 任意 的 , 这 就 使 得 REXX 编程 少 了 
许多 语法 上 的 约束 ， 更 加 简单 实用 。 


3.1.1 指令 的 语法 规则 


REXX 指令 可 以 为 大 写字 母 、 小 写字 母 或 者 两 者 的 混合 。 但 是 ,在 编译 执行 过 程 中 ， 
指令 会 被 自动 转化 为 大 写 形式 ， 用 引号 引用 的 部 分 除外 。 

关于 引号 的 使 用 ， 可 以 使 用 单 引 号 或 者 双 引 号 ， 只 要 相同 的 引号 成 对 应 用 即 可 。 如 
果 使 用 SAY 指令 时 忽略 了 引号 ， 系 统 会 自动 将 内 容 转 换 成 大 写 输出 ， 例 如 


SAY This is a string. /* 输入 */ 
THIS IS A STRING. /* 输出 */ 


如 果 字 符 串 中 含有 单 撤 号 〈')， 也 可 以 用 双 引 号 将 其 括 起 来 ， 系 统 会 自动 识别 相应 
符号 的 含义 ， 并 解析 输出 ， 例 如 : 


SAY "This isn't a good idea." /* 输出 This isn't a good idea. */ 
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342 ”指令 的 格式 


REXX 语言 的 指令 格式 十 分 自由 ， 一 条 指令 可 以 从 任意 列 写 起 ， 系 统 会 忽略 掉 多 余 
的 空格 和 空 行 ， 如 果 一 条 指令 在 一 行 之 内 不 能 全 部 容纳 ， 可 以 续 行 ， 此 时 在 上 一 行 的 结 
尾 加 上 逗号 ， 表 示 续 行 ， 这 种 续 行 方式 会 在 两 部 分 指令 之 间 加 一 个 空格 ， 例 如 : 


SAY 'THIS IS AN EXTENDED', 
' INSTRUCTION. ' 


/* 输出 "THIS IS AN EXTENDED INSTRUCTION." */ 
如 果 不 想 加 入 空格 ， 可 以 用 UD 来 进行 续 行 ， 例 如 : 


SAY 'THIS IS A STRING USING CONCR' 11， 
'TENATION OPERAND."' 


/* 输出 "THIS IS A STIRNG USING CONCATENATION OPERAND." */ 


一 条 指令 结束 用 分 号 表示 ， 也 可 用 分 号 分 隔 一行 中 的 几 条 不 同 的 指令 。 如 果 一 行 只 
有 一 条 指令 ， 也 可 以 不 标记 结尾 ， 因 为 默认 情况 下 一 行 的 结束 标识 着 一 条 指令 的 结束 ， 
例如 : 

SAY 'hello'; SAY 'HELLO WORLD'; SAY'GO ON' 

指令 的 输出 为 : 

hello 


HELLO WORLD 
GO ON 


注释 写 在 一 对 /* 与 六 之 间 ， 可 以 写 在 任意 位 置 ， 也 可 以 嵌 套 在 命令 中 ， 最 大 长 度 为 
250 个 字 节 ， 可 以 跨行 ， 建 议 使 用 规范 统一 的 注释 风格 。 


3.1.3 ”指令 类 型 
在 REXX 中 ， 有 5 种 类 型 的 指令 ,关键 字 、 赋 值 、 标 签 、 空 子 句 和 命令 调用 。 


1. 关键 字 

关键 字 指令 通常 起 始 于 一 个 REXX 关键 字 ， 它 告诉 语言 处 理 器 做 哪些 事情 ， 例 如 ， 
Say "Hello World!" 指 令 中 ， 关 键 字 Say 表示 将 字符 串 “Hello World!” 显 示 到 屏幕 上 ; 下、 
THEN, ELSE 为 三 个 关键 字 ， 共 同 构成 了 一 个 控制 流 指 令 ， 其 中 每 个 单独 的 关键 字 及 其 
指示 的 内 容 形 成 一 个 子 句 〈clause)， 它 是 指令 的 一 部 分 。 常 见 的 关键 字 还 有 EXIT, 
DO/END 等 。 
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2. 赋值 
即 对 变量 赋值 或 者 改变 当前 变量 值 。 赋 值 操作 计算 语句 右边 的 表达 式 ， 并 将 计算 结 
果 值 赋 给 左边 变量 。 例 如 Variable = 6 ; Variable = Variable +3 等 。 


3. 标签 

指 后 面 紧 跟 冒号 的 名 称 符 ， 出 现在 指令 开始 处 。 标 签名 称 可 以 包含 单 、 双 字符 ， 同 
一 个 标签 可 以 出 现在 程序 中 的 多 处 ， 但 是 在 搜寻 目标 标签 时 ， 只 执行 最 近 的 标签 程序 片 
段 。 例 如 “Programl :”“100.3:” 等 都 是 合法 有 效 的 标签 。 标 签 主要 用 于 标识 程序 片断 ， 
经 常用 于 子 例 程 或 函数 之 中 。 标 签 可 用 作 某 些 指 示 性 指令 〈 如 SIGNAL, TRACE) 的 作 
用 目标 。 


4. 空子 句 

空子 句 通常 指 注释 或 空 行 ， 其 作用 是 增加 程序 的 可 读 性 。 在 执行 过 程 中 会 被 语言 处 
理 器 跳 过 忽略 。 和 其 他 编程 语言 类 似 ， 适 当 使 用 注释 可 以 提高 可 读 性 ， 使 程序 更 加 便于 
理解 和 维护 。 特 别 地 ， 为 了 在 主机 环境 下 区 分 CLIST 程序 与 REXX 程序 (exec)， 通 常 
在 REXX 程序 的 程序 起 始 处 , 加 上 一 行 包含 了 REXX 字样 的 注释 。 通 过 这 样 的 首 行 注释 
可 使 系统 将 其 识别 为 REXX 程序 进行 处 理 ， 从 而 与 CLIST 区 别 。 空 行 可 用 于 适当 的 程序 
格式 划分 ， 同 样 是 为 了 增强 程序 代码 的 可 读 性 。 


5. 命令 调用 (包括 TSO/E REXX 命令 以 及 宿主 命令 ) 
当 程 序 指令 不 是 关键 字 、 赋 值 、 标 签 或 者 空子 句 时 ， 将 作为 命令 置 于 前 面 所 定义 的 
环境 中 进行 处 理 。 以 下 程序 中 出 现 的 TIME 将 被 作为 TSO/E 命令 进行 处 理 〈 这 里 特 指 在 
TSO 地 址 空间 下 )。 


/* TSO system */ 
TIME /* 命令 内 容 */ 


3.2 ”变量 和 表达 式 


本 节 介 绍 REXX 语言 中 变量 和 表达 式 的 使 用 方法 ， 变 量 和 常量 等 组 成 了 表达 式 ， 表 
达 式 又 可 以 组 成 指令 和 函数 ， 以 及 可 执行 的 REXX 程序 。 通 过 变量 和 表达 式 的 运算 可 以 
实现 想 要 得 到 的 功能 ， 是 REXX 编程 的 基础 。 


3.2.1 变量 的 使 用 


REXX 中 变量 的 概念 和 其 他 编程 语言 类 似 ， 即 代表 程序 中 某 值 的 符号 名 ， 变 量 可 用 
于 在 不 同时 刻 指 代 不 同 值 ， 或 者 指 代 编程 时 刻 所 无 法 得 到 的 值 ， 例 如 程序 内 部 变量 或 者 
外 部 文件 名 。 前 者 可 通过 赋值 语句 赋予 变量 新 的 值 (或 初 值 )， 后 者 可 通过 相应 的 输入 输 
出 操作 得 到 对 应 值 。 
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1. 变量 名 称 

变量 名 称 可 以 包括 : 大 小 写 英文 字母 以 及 @、#、$、?、!、.、_ 等 特殊 符号 ， 还 可 以 
有 XX'41'、X'FE' 这 类 双 字 符 (Double-Byte Character Set，DBCS)。 如 果 要 使 用 双 字 符 ， 
需要 在 程序 中 指定 ETMODE。 例如: 


OPTIONS'ETMODE' /* 通 过 设置 ETMODE 引入 双 字 符 变量 */ 
<.S.Y.M.D>=10 /*DBCS 变量 要 用 <> 括 起 来 */ 


变量 名 称 还 有 以 下 约束 : 第 一 个 字符 不 是 0 一 9， 也 不 能 是 圆 点 〈.)， 长 度 不 能 超过 
250 个 字 节 。 对 于 DBCS 字符 ， 每 个 字符 占 两 位 ，SO 和 SI 各 占 一 位 。 特 别 地 ， 变 量 名 
字 不 能 取 RC、SIGL 或 者 是 RESULT 等 在 REXX 中 有 特殊 意义 的 保留 字 。 下 面 给 出 几 个 
可 行 的 变量 名 供 参 考 HELLO. A. (hi. go . home, list4. 


2. 变量 取 值 

变量 的 值 可 以 是 数值 常量 ， 如 整 型 、 浮 点 型 、 带 符号 数 等 ， 也 可 以 是 字符 串 ， 其 他 
变量 的 值 或 者 表达 式 。 如 果 变 量 没 有 初始 化 ， 那 么 它 的 值 为 变量 名 的 大 写字 母 表示 。 可 
能 得 到 的 变量 值 如 下 。 


Variable = 12 

Variable = 'this is a string' 
Variable - varialbe2 
Variable- 2* 344 


变量 的 赋值 可 以 用 PARSE 指令 、VALUE 内 置 函数 、 赋 值 表 达 式 以 及 其 他 编程 语言 
来 实现 。 


3. 变量 类 型 
REXX 变量 包含 三 种 类 型 : 简单 变量 (Simple Variable), HARE (Compound 
Variable) 和 复合 词 干 (Compound Stem). 


4. 简单 变量 

简单 变量 是 指 符号 名 称 中 不 含 任何 句点 〈.) 的 变量 ， 如 user_name, 如 果 该 变量 没有 
对 其 显 式 赋值 ， 则 它 所 代表 的 值 即 为 符号 名 称 本 身 的 大 写 ， 即 为 USER_NAME。 注 意 ， 
REXX 对 变量 名 称 本 身 的 大 小 写 是 不 敏感 的 ， 所 以 不 能 用 大 小 写 来 区 分 名 字 相同 的 两 个 


5. 复合 变量 

复合 变量 是 符号 名 称 中 含有 一 个 或 多 个 句点 〈.) 的 变量 ， 由 词 干 和 词尾 组 成 ， 分 别 
遵循 简单 变量 的 命名 规则 ， 如 A.3、A.X.Y、B..1.2. 等 。 变量 的 总 长 度 (包括 词 干 和 词尾 ) 
不 超过 255 个 字符 。 复 合 变 量 的 取 值 为 词 干 的 大 写 值 加 上 词尾 的 变量 值 ， 如 果 词 尾 变 量 
未 赋值 ， 就 是 对 应 的 变量 名 称 的 大 写 值 ， 词 尾 变量 中 可 以 有 空 值 ， 如 TIME = 3， 
REXX.TIME 的 值 为 REXX.3。 

复合 变量 可 将 变量 值 以 分 组 的 形式 存放 和 访问 。 事 实 上 ， 复 合 变量 对 应 了 其 他 编程 
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语言 的 数组 Caray) 或 链表 (list)。 在 REXX 中 ,“ 数 组 ”的 下 标 值 不 一 定 为 数字 ， 可 以 
是 任何 有 意义 的 字符 串 ， 便 于 开发 和 使 用 。 
6. 复合 词 干 
合 词 干 是 复合 变量 中 的 第 一 个 变量 名 称 和 第 一 句点 所 组 成 的 。 通 常用 于 将 复合 变 
量 所 表示 的 整个 变量 集合 赋予 相同 的 初 值 ， 例 如 : 


room. = "empty" 
room.mine = "full" 


say room.1 room.yours room.mine /* 输出 "empty empty full" */ 

由 此 可 以 看 出 ， 每 个 复合 变量 的 开头 《〈 首 段 变量 加 “.”) 都 是 一 个 复合 词 干 。 

需要 注意 的 是 ， 复 合 变量 的 首 段 变 量 名 通常 是 表示 符号 名 称 本 身 ， 而 剩余 部 分 的 变 
量 接 受 前 面 所 赋予 的 值 ， 例 如 : 


Firstname- 'Jack' 


Lastname - 'Green' 
Student - firstname.lastname 


SAY Student 

/* 输出 " FIRSTNAME.Green" */ 

SAY Student.firstname.middle.lastname 
/* 输出 " STUDENT.Jack.MIDDLE.Green" */ 


上 例 中 ，firstname.lastname 作为 变量 使 用 时 ， 其 首 段 变 量 〈firstmame) 表示 符号 名 称 
本 身 ， 作 为 词尾 时 ， 其 值 为 被 赋予 的 字符 串 值 。 


say Grade.Row.Col /* 输出 " GRADE.ROW.COL" */ 
Row=8 

Col-6 

say Grade.Row.Col /* 输出 " GRADE.8.6" */ 
Grade. - "Pass" /* 注意 Grade 后 面 的 "." */ 
say Grade.Row.Col /* 输出 "Pass" */ 
Grade.8.6 - 'Fail' 

say Grade.Row.Col /[* 输出 "Fail" */ 


注意 区 分 上 述 两 例 中 复合 变量 第 一 变量 名 Student 和 复合 词 干 Grade. 的 不 同 表示 和 


EX. 
3.2.2 ”表达 式 的 使 用 

表达 式 是 需要 运算 的 语句 ， 由 数字 、 变 量 、 字 符 串 和 操作 符 组 成 。 操 作 符 决定 了 运 
算 的 类 型 ， 有 算术 运算 、 比 较 运算 、 逻 辑 运 算 和 串联 运算 。 

1. 常量 表达 式 

在 REXX 中 表达 式 的 使 用 和 其 他 编程 语言 类 似 , 如 3, 1234.56, —1, 1.23e+7, 4.56E-3 
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等 ， 可 以 用 于 表示 数字 常量 。 在 算术 运算 处 理 中 ， 可 通过 使 用 NUMERIC DIGITS 指令 
指定 数值 运算 的 有 效 位 数 ， 例 如 ， 在 NUMERIC DIGITS 指令 默认 设置 (9 位 ) F, 

1234567891011121314 在 运算 处 理 时 , 被 作为 1.23456789E+18 进行 处 理 。 对 字符 串 常 量 ， 
在 不 至 于 混淆 的 情况 下 ， 单 引号 和 双 引 号 皆 可 使 用 ， 即 iteral string' 和 "literal string" 均 可 
使 用 ， 在 引号 内 的 字符 串 中 ， 可 使 用 任何 符号 ， 包 括 同类 型 引号 本 身 。 


2. 算术 表达 式 

算术 表达 式 使 用 到 的 运算 符 包 括 : + (加 )、- GO. * GRO. R 9o (〈 取 商 )、 
/| RR) ** (RF) 以 及 正 负 前 缀 +/-。 

注意 除法 运算 中 ， 两 个 整数 相 除 得 到 的 结果 可 以 是 浮 点 数 。 如 7/2， 结 果 是 3.5。 

按照 从 左 到 右 的 运算 顺序 ， 优 先 级 为 先 计 算 括 号 中 的 ， 然 后 按照 运算 符 的 优先 级 依 
次 计算 。 具 体 优先 级 情况 见 后 续 表格 。 


3. 比较 表达 式 

比较 表达 式 通过 比较 运算 返回 真 或 假 ， 用 1 和 0 表示 。 比 较 运 算 通常 和 IF-THEN- 
ELSE 配合 使 用 ， 用 于 判断 程序 执行 的 路 径 。 比 较 运 算 的 对 象 可 以 是 数值 和 字符 串 。 
表 3-1 列 出 了 一 些 常 用 的 比较 运算 符 。 


表 3-1 比较 运算 符 


注意 ，REXX 中 的 非 符 号 ， 可 以 用 “或 \ 表 示 ， 两 者 作用 相同 。 严 格 比较 〈 不 ) 等 
于 ， 表 明 将 表达 式 两 端 进行 完全 比较 ， 包 括 了 空格 和 大 小 写 。 而 〈 不 ) 等 于 运算 只 是 比 
较 两 端 字符 串 的 内 容 是 否 相 同 ， 如 下 例 。 


'HELLO' = hello 返回 1 
'hello' /-- hello 返回 1 
'hello' == hello 返回 0 
4. 逻辑 表达 式 


逻辑 运算 与 比较 运算 的 返回 值 相同 ,结果 为 真 时 ， 返 回 1， 反 之 返回 0。 常 用 的 逻辑 
运算 符 有 : & (与 )、| (或 )、\( 非 )、&&( 异 或 )， 遵 循 一 定 的 优先 级 规则 ， 为 了 避免 
混淆 ， 可 以 用 括号 来 标识 运算 顺序 。 

逻辑 操作 符号 组 成 的 逻辑 表达 式 通常 用 在 下 -THEN、DO-WHILE、WHEN-THEN 等 
关键 字 指令 构成 的 条 件 子 句 中 ， 用 于 控制 分 支流 或 者 选择 屏蔽 某 些 条 件 ， 例 如 : 


IF((A« B) | (J < D) & ((M-Q) | (M = D)) THEN ... 
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5. 串联 表达 式 

串联 操作 将 指令 中 的 两 项 连 成 一 项 ， 可 以 是 字符 串 、 变 量 、 表 达 式 和 常量 ， 串 联 操 
作 常 用 于 格式 化 输出 。 常 见 的 串联 操作 符 如 下 。 

COD 空格 ， 连 接 两 端的 项 并 在 其 中 加 入 一 个 或 多 个 空格 分 隔 ， 两 项 之 间 默 认 设置 为 


一 个 空格 连接 。 
Say X Yz /* 结果 显示 为 "X YZ" */ 
(2)“||”， 直 接连 接 两 端的 项 ， 中 间 不 插入 空格 。 
eiis * 3) /* 结果 显示 为 89 */ 


(3) 直接 相 邻 ， 连 接 两 个 直接 相 邻 不 同 项 ， 中 间 不 加 入 空格 。 
如 变量 percent 为 60， 则 percent's' 表 示 60$. 
以 上 运算 符 的 优先 级 从 高 到 低 如 表 3-2 所 示 。 

表 3-2 ”运算 符 优先 级 〈 从 高 到 低 ) 


ERG | 符号 | < awm | 
前 级 操作 符 申 联 操作 
3r dito LL———À 比较 操作 
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关键 字 指令 是 以 关键 字 开 始 的 指令 ， 可 用 于 改变 控制 流 ， 为 编程 人 员 提 供 系统 服务 
等 ， 有 些 关 键 字 指 令 ， 如 DO， 可 以 包含 嵌 套 的 指令 。 凡 是 以 关键 字 开始 的 指令 都 不 是 
系统 命令 , 如 ARG(BREAD) REST 是 一 个 ARG 关键 字 指令 , 而 不 是 系统 的 ARG 内 置 函 
数 调用 。 

在 DO、 正 、SELECT 指令 中 ， 关 键 字 必 须 成 对 出 现 ， 否 则 系统 会 提示 语法 错误 。 在 
其 他 情况 下 ， 关 键 字 不 是 保留 字 ， 可 以 用 于 标签 或 者 变量 名 ， 但 这 种 做 法 是 不 推荐 的 。 
还 有 一 些 子 关键 字 , 它们 对 应 于 特定 的 关键 字 指 令 , 如 VALUE 和 WITH 分 别 是 ADDRESS 
和 PARSE 的 子 关键 字 。 

下 面 介绍 一 些 常 用 的 关键 字 及 其 对 应 的 指令 ， 如 需 了 解 更 多 关键 字 的 使 用 方法 ， 请 
查阅 IBM 白皮书 TSO/E REXX Reference. 


3.3.1 ADDRESS 关键 字 


REXX 中 可 以 使 用 命令 ,它们 是 发 往外 部 环境 的 字符 串 ，REXX 可 通过 显 式 地 使 用 
ADDRESS 指令 来 指定 命令 的 目标 执行 环境 。 它 常用 的 表示 方法 有 以 下 两 种 。 
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1. ADDRESS environment (expression) 

WAP, environment 为 一 个 常量 字符 串 ， 指 定 环境 名 称 ， 是 可 执行 REXX 命令 的 外 
部 程序 或 进程 的 名 字 。expression 为 要 执行 的 命令 ， 通 过 一 定形 式 的 转换 发 送 到 
environment 所 指定 的 目标 环境 ， 该 命令 执行 后 环境 变量 会 恢复 到 之 前 的 值 ， 此 时 RC 会 
被 赋值 ， 返 回 命令 执行 的 结果 状态 ，RC 为 “0” 则 表示 命令 执行 成 功 。 

ADDRESS LINKMVS "program pl p2" 

/* LINKMVX 为 宿主 环境 , 提供 链接 功能 , 该 语句 将 链接 到 可 执行 模块 program 并 提供 参数 p1 


p? */ 
ADDRESS MVS "MAKEBUF" /* 在 MVS 下 执行 MAKEBUF 命令 */ 
ADDRESS TSO "DELSTACK" /* 在 Tso 环境 下 执行 DELSTRCK 命令 */ 


如 果 未 指定 expression， 只 是 定义 了 environment 变量 的 值 ， 则 执行 环境 的 更 改 是 永 
久 性 的 ， 在 此 之 后 的 所 有 命令 都 会 发 送 到 相应 环境 中 执行 ， 直 到 下 一 次 ADDRESS 命令 
显 式 地 使 用 。 


ADDRESS MVS /* 此 后 的 命令 都 在 MVS 环境 下 执行 */ 


2. ADDRESS (VALUE) expression 

当 要 执行 的 环境 名 称 需 要 通过 运算 得 出 时 ， 可 以 使 用 VALUE 关键 字 ， 执 行 结果 等 
同 于 第 一 种 方法 。 其 中 ，expression 表示 目的 环境 的 名 字 ， 通 常 是 一 个 表达 式 。 如 果 
expression 以 特殊 字符 开头 ， 如 括号 等 ， 则 VALUE 可 省 略 。 

ADDRESS ('ENVIRONMENT' | | NUM) 


/* 上 句 等 同 于 ADDRESS VALUE "ENVIRONMENT' | 1NUM， 首 先 通过 运算 得 到 
"ENVIRONMENT ' | | NUM 所 代表 的 环境 名 称 , 然后 再 设 定 此 后 的 命令 都 在 对 应 的 环境 中 执行 */ 


REXX 提供 了 许多 宿主 命令 执行 环境 ， 可 以 用 ADDRESS 指令 来 转换 ， 这 些 环境 提 
ft Y iJ] TSO/E. MVS, ISPF 不 同 功 能 和 服务 的 方法 。 

如 果 使 用 了 CALL 命令 ， 当 前 的 环境 值 会 被 保存 起 来 ， 当 函数 调用 返回 时 再 读 出 之 
前 保存 的 信息 ， 这 些 环境 信息 也 可 以 通过 ADDRESS 内 置 函 数 得 到 。 


3.3.2 ARG 关键 字 


AGR 关键 字 用 于 读 取 用 户 提供 的 参数 值 ， 并 向 函数 或 子 例 程 中 对 应 的 变量 赋值 ， 它 
的 指令 格式 如 下 。 


PARSE UPPER ARG (template list) 


其 中 template list 是 一 个 或 一 组 变量 串 〈template)， 用 逗号 隔 开 ， 每 一 个 template 
由 用 空格 或 括号 分 隔 的 变量 组 成 。 

对 于 传递 给 函数 或 子 例 程 的 参数 ， 编 译 器 会 先 将 字符 串 转 换 成 大 写 值 ， 然 后 再 进行 
赋值 等 处 理 ， 如 果 想 保留 原 格 式 ， 可 以 使 用 PARSE ARG 指令 。 对 于 同一 个 字符 串 ， 可 
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以 反复 使 用 ARG 或 PARSE ARG 指令 , 不 会 改变 原 字符 串 的 内 容 。 可 处 理 的 字符 串 的 长 
度 仅 由 系统 参数 决定 。 
/* 传递 的 字符 串 是 "hello world" */ 


(PARSE) ARG X Y. /* 执行 结果 是 X = hello Y = world */ 
PARSE UPPER ARG X Y. /* 执行 结果 是 X = HELLO Y = WORLD */ 


如 果 要 向 程序 传递 多 个 字符 串 ， 可 用 逗号 隔 开 ， 使 得 字符 串 序 列 中 的 每 一 个 字符 串 
依次 接收 数据 。 


/* 调用 函数 SAMPLE ('hello world',2) */ 

SAMPLE: 

(PARSE) ARG string, num 

/* 执行 结果 是 string = 'hello world', num = 2 */ 


3.3.0 SAY 关键 字 


SAY 关键 字 用 于 向 终端 输出 一 行 字符 , 可 以 设置 输出 的 位 置 . 如 REXX 程 序 在 TSOAE 
前 端 运行 时 ， 会 输出 到 显示 终端 ; 在 TSO/E 后 台 运 行 时 ， 会 输出 到 系统 输出 流 ， 即 
SYSTSPRT; 在 非 TSO/E 环境 下 运行 时 ， 会 输出 到 由 OUTDD 指定 的 位 置 。 输 出 字符 的 
格式 会 根据 当前 运行 环境 的 设置 来 调节 。SAY 关键 字 的 使 用 在 前 面 的 例子 中 已 经 出 现 过 
很 多 次 ， 需 要 注意 引号 和 一 些 连 接 符号 的 使 用 方法 。 

NAME - REXX 


SAY 'MY NAME IS ' NAME 
/* 输出 : MY NAME IS REXX */ 


3.3.4 PROCEDURE 关键 字 


PROCEDURE 关键 字 使 用 在 子 例 程 中 ， 用 于 隔离 子 例 程 和 主 程序 中 变量 的 使 用 。 当 
子 例 程 返回 时 ， 恢 复 调用 前 主 程序 变量 的 值 ， 并 且 在 子 例 程 中 使 用 的 变量 都 被 舍弃 ， 使 
用 格式 如 下 。 


PROCEDURE (EXPOSE) (name) 
PROCEDURE 关键 字 需 是 在 子 例 程 标 签 后 的 第 一 条 指令 。 


/* REXX 主 程序 */ 

这 

CALL SUBPROC 

SAY X KM /* 输出 "1 K M" */ 
EXIT 


/* 子 例 程 */ 
SUBPROC: PROCEDURE 
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SAY OXEKTY /[* 输出 "X K Y.1" */ 
K 77; H-3 /* K 和 ™M 的 值 不 会 返回 到 主 程序 中 */ 
RETURN 


如 果 想 和 主 程序 共享 一 些 变 量 ， 可 以 使 用 EXPOSE 选项 ， 例 如 : 


/* REXX 主 程序 */ 
J=1;K=6;M=9A='JKM' 
CALL SUBPROC 

EXIT 


/* 子 例 程 */ 

SUBPROC: PROCEDURE EXPOSE (A) /* 共享 A、J、K 和 M */ 
SAYAJKM/* 输 出 "JKM16 9"*/ 

RETURN 


对 于 EXPOSE 后 面 的 变量 ， 如 果 是 简单 变量 ， 直 接 写 出 变量 名 字 即 可 ， 多 个 变量 用 


空格 隔 开 ， 如 果 使 用 括号 ， 则 变量 会 被 展开 成 对 应 的 变量 列表 ， 如 上 例 中 ， 变 量 A 以 及 
它 所 代表 的 变量 列表 JKM 都 会 被 共享 。 


说 


, 


变量 按照 指定 的 顺序 被 共享 ， 如 下 例 ， 如 果 变 量 Z.J 列 在 变量 J 之 前 ， 则 对 于 Z.J 来 
J 的 值 还 未 被 共享 ， 所 以 不 是 1， 那 么 就 不 能 共享 主 程序 中 的 变量 Z.1 了 。 


/* REXX 主 程序 */ 

i E 

CALL SUBPROC 

SAY JKM /* 输出 "1 7 Mn */ 
EXIT 


/* 子 例 程 */ 

SUBPROC: PROCEDURE EXPOSE J K Z.J 
SAY J K Z.J /* 输出 "1 K A" */ 
K27; M23 

RETURN 


3.3.5 CALL 关键 字 


CALL 关键 字 用 于 调用 函数 和 跟踪 特定 的 事件 。 


1. 特定 情况 的 跟踪 
通过 CALL ON 和 CALL OFF 可 以 捕捉 到 特定 事件 或 状态 的 发 生 ， 并 且 改 变 程序 的 


执行 顺序 。 用 法 是 : CALL ON condition (NAME trapname) 和 CALL OFF condition. 


其 中 condition 指定 了 要 跟踪 的 内 容 ，trapname 指定 了 跟踪 后 的 处 理 程 序 ， 可 以 是 内 


部 例 程 ， 系 统 内 置 函数 或 外 部 例 程 ， 如 果 未 指定 trapname， 则 默认 跳 转 到 condition 指定 
的 例 程 或 标签 处 。 
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常见 的 跟踪 内 容 有 ERROR. FAILURE, HALT, NOVALUE 和 SYNTAX, 关于 CALL 
指令 对 系统 各 事件 的 跟踪 ， 在 第 9 章 有 详细 说 明 。 


2. 调用 函数 或 子 例 程 

CALL function name， 通 过 指定 例 程 的 名 字 来 调用 ， 可 以 是 内 部 例 程 、 内 置 函 数 或 
外 部 函数 ， 这 些 函 数 等 的 名 称 都 是 大 写 的。 如 果 名 字 是 用 引号 括 起 来 的 字符 串 ， 则 编译 
会 认为 是 内 置 函 数 或 外 部 例 程 。 注 意 内置 函 数 名称 在 引号 内 时 要 大 写 ， 因 为 在 传递 时 
不 对 引号 中 的 内 容 进行 大 写 转换 。CALL 指令 可 以 有 返回 值 ， 存 储 在 特殊 变量 RESULT 
中 ， 而 不 是 RC 中 。 如 果 作 为 函数 调用 而 未 定义 返回 值 ， 系 统 会 报错 。 

当 使 用 CALL 指令 时 ， 系 统 搜索 对 应 例 程 的 顺序 是 ， 先 搜索 同一 个 REXX 程序 内 部 
的 例 程 ， 然 后 是 系统 的 内 置 例 程 ， 最 后 是 外 部 程序 中 的 例 程 ， 所 以 要 注意 避免 因 名 字 相 
同 而 调用 错误 的 情况 。 对 于 内 部 例 程 的 调用 可 以 嵌 套 ， 同 时 也 可 以 递归 调用 自身 。 有 具体 
关于 函数 调用 的 方法 请 参见 第 4 章 。 


3.3.0 DROP 关键 字 


DROP 可 以 使 变量 恢复 到 未 初始 化 的 状态 ， 也 就 是 使 得 变量 的 取 值 等 于 它们 名 字 的 
大 写 值 。 使 用 方法 : DROP (name), HP name 是 变量 的 名 字 。 如 果 不 加 括号 ， 表 示 要 
DROP 对 应 名 字 的 变量 ， 如 果 加 括号 ， 表 示 要 DROP 由 name 定义 的 一 组 变量 。 可 以 一 
次 DROP 多 个 变量 ， 之 间 用 去 号 或 空格 分 开 ， 按 照 顺序 依次 处 理 。 

如 果 指 定 了 未 定义 的 变量 或 者 同一 个 变量 指定 多 次 ， 不 会 产生 错误 信息 。 如 果 
DROP 的 是 一 个 复合 词 干 ， 如 STEM.， 那 么 所 有 以 这 个 词 干 为 开头 的 复合 变量 都 将 恢复 
初始 值 。 

DROP A B.C /* DROP 的 变量 是 A 和 B.C */ 

LIST = 'A BC 

DROP (LIST) F  /* DROP 的 变量 是 A、B、C 和 了 ,但 是 LIST 变量 的 值 不 变 */ 


3.3.7 INTERPRET 关键 字 


INTERPRET 指令 可 以 动态 地 翻译 指令 并 执行 ， 通 过 在 关键 字 后 面 添 加 任意 指令 内 
容 , 包括 INTERPRET 本 身 , 来 指定 要 解析 和 执行 的 命令 。 如 果 用 到 DO-END, IF-THEN- 
ELSE 等 指令 要 注意 成 对 匹配 ， 同 时 ， 如 果 在 非 循环 结构 内 ， 也 不 可 以 使 用 ITERATE 和 
LEAVE 指令 。INTERPRET 指令 常用 在 一 些 特殊 情况 下 ， 如 许多 语句 需要 同时 被 翻译 ， 
或 者 有 些 语句 要 动态 翻译 等 。 

INTERPRET SAMPLE '= 4' 

/* REXX 首先 创建 出 字符 串 "SAMPLE = 4"， 然 后 执行 将 4 赋值 给 SAMPLE 变量 */ 


SAMPLE = "DO 3; SAY "HELLO WORLD!"; END' 
INTERPRET SAMPLE 
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/* 输出 三 行 "HELLO WORLD" */ 

通常 对 于 语言 程序 的 执行 可 以 采用 先 编译 成 机 器 码 再 执行 的 方法 ， 一 次 性 完成 全 部 
代码 的 转换 然后 全 部 执行 ， 还 可 以 采用 边 翻译 边 执行 的 方法 ， 每 次 翻译 一 条 语句 ， 执 行 
后 再 翻译 下 一 条 语句 。REXX 程序 可 以 用 任 一 方法 执行 ， 但 是 全 部 编译 再 执行 的 方法 可 
以 保留 生成 的 可 执行 代码 ， 避 免 每 次 运行 时 重复 的 翻译 过 程 。 


3.3.8 NOP 关键 字 


NOP 作为 空 语句 ， 常 用 于 THEN 和 ELSE 子 句 ， 表 示 不 执行 操作 。 如 果 不 用 NOP 
关键 字 而 是 使 用 分 号 占 位 ， 则 该 子 句 将 被 忽略 ， 直 接 跳 到 下 一 句 执 行 ， 易 产生 语法 错误 ， 
如 下 例 。 


SELECT 

WHEN A = C THEN NOP 

WHEN A > C THEN SAY 'A > C' 

OTHERWISE SAY 'A « C' 

END 

/* 如 果 不 使 用 NOP, 则 将 把 第 二 个 WHEN 子 句 当做 第 一 种 情况 的 处 理 结果 */ 


3.3.9 NUMERIC 关键 字 


NUMERIC 关键 字 用 于 控制 算术 运算 的 方式 ， 包 括 NUMERIC DIGITS、NUMERIC 
FORM 和 NUMERIC FUZZ. 


1. NUMERIC DIGITS 

NUMERIC DIGITS， 参 数 是 数值 或 计算 术 值 的 表达 式 ， 用 于 控制 计算 的 精度 ， 即 有 
效 位 的 数量 ， 默 认 是 9 位 有 效 值 ， 可 以 指定 一 个 有 效 的 正 整 数 设 置 有 效 值 ， 但 要 比 当 前 
状态 下 NUMERIC FUZZ 的 设置 大 。 

对 DIGITS 的 设 定 没 有 范围 限制 ， 只 要 在 系统 的 存储 空间 内 即 可 ， 但 高 精度 的 计算 
常常 会 消耗 更 多 的 时 间 ， 所 以 一 般 情 况 下 建议 使 用 系统 默认 精度 。 可 以 使 用 系统 内 置 函 
数 DIGITS 来 得 到 当前 的 NUMERIC DIGITS 设置 。 

NUMERIC DIGITS 5  /* 设置 当前 的 表示 精度 为 5 位 */ 

SAY 54321*54321 /* 显示 输出 为 2.9508E+9 */ 

2. NUMERIC FORM 

NUMERIC FORM 参数 为 SCIENTIFIC、ENGINEERING 或 VALUE (expression), 
expression 的 计算 结果 是 SCIENTIFIC 或 ENGINEERING, 用 于 控制 计算 结果 的 指数 表示 
方法 ， 可 以 是 科学 计数 法 〈SCIENTIFIC)， 即 在 小 数 点 之 前 只 有 一 位 非 零 的 整数 ， 也 可 
以 是 工程 计数 法 (ENGINEERING)， 即 小 数 点 左边 的 数字 可 以 有 1 一 3 位 有 效 数字 ， 而 
10 的 乘 方 的 指数 必须 是 3 的 位 数 。 默 认 情 况 下 使 用 科学 计数 法 表示 ， 可 以 通过 内 置 函数 
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FORM 来 得 到 当前 NUMERIC FORM 的 设置 。 


NUMERIC FORM SCIENTIFIC /* 设置 使 用 科学 计数 法 */ 
123.45 * lell -> 1.2345E+13 


3. NUMERIC FUZZ 

NUMERIC FUZZ 用 于 在 数值 比较 时 ， 设 置 可 忽略 的 位 数 ， 默 认 情况 是 0， 也 就 是 每 
一 位 都 参与 比较 ， 用 户 也 可 以 自己 设置 一 个 非 负 整 数 ， 并 且 要 比 NUMERIC DIGITS 的 
设置 精度 小 。 当 进行 数值 比较 时 ， 会 将 数字 按照 (DIGITS-FUZZ) 的 精度 来 做 减法 ， 再 
与 0 比较 。 可 以 通过 内 置 函数 FUZZ 来 得 到 当前 NUMERIC FUZZ 的 设置 。 

NUMERIC DIGITS 5 


NUMERIC FUZZ 1 /* 设置 比较 精度 为 4 位 , 5 NUMERIC DIGITS 4 作用 相同 */ 
SAY 4.9999 = 5 /* 结果 为 "1”*/ 


3.3.10 ”OPTIONS 关键 字 


OPTIONS 关键 字 向 编译 器 发 出 请 求 或 设置 参数 ， 如 设置 编译 选项 或 定义 字符 集 
等 。 通 过 提供 一 个 表达 式 来 设 定 ， 表 达 式 会 被 逐 字 解析 ， 如 果 可 以 识别 就 进行 相应 的 
设置 ， 如 果 不 能 识别 就 转交 给 其 他 编译 器 。 通 常 可 以 识别 的 参数 如 下 〔 常 作为 字符 串 
给 出 )。 

(1) ETMODE: 告诉 编译 器 要 对 含有 DBCS 字符 的 语句 进行 有 效 性 检查 ， 即 可 以 
使 用 DBCS 字符 集 ， 该 参数 需要 在 程序 的 最 开始 设置 ， 并 且 后 续 的 设置 都 将 被 忽略 ， 
否则 会 返回 错误 信息 IRXOO33I. WRAHA OPTION 指令 的 表达 式 是 一 个 外 部 函数 的 调 
用 ， 并 且 调 用 的 函数 中 含有 DBCS 编码 的 字符 串 ， 那 么 函数 名 称 需 要 加 引号 ， 这 样 可 
以 保证 函数 中 的 DBSC 字符 串 被 识别 ， 而 不 是 在 调用 前 执行 OPTION 指令 。 通 常情 况 
下 不 建议 用 内 部 函数 来 设置 ETMODE， 这 样 可 能 会 导致 在 翻译 程序 中 DBCS 字符 串 时 
出 现 错误 。 


OPTIONS 'ETMODE'  /* 可 在 后 面 的 代码 中 使 用 DBCS 编码 的 字符 */ 


(2) NOETMODE: 和 ETMODE 相反 , 不 检查 DBCS 字符 串 的 有 效 性 ,是 OPTIONS 
的 默认 设置 ， 如 果 不 是 程序 的 第 一 条 指令 将 被 忽略 。 

OPTIONS 'NOETMODE' /* 代码 中 的 DBCS 字符 将 无 法 识别 */ 

(3) EXMODE: 告诉 编译 器 当 指令 ， 运 算 或 函数 在 处 理 含 有 DBCS 数据 的 混合 字符 
串 时 ， 用 逻辑 处 理 ， 不 进行 类 型 转换 ， 保 持 DBCS 数据 的 完整 性 。 在 函数 或 子 例 程 中 对 
该 参数 的 设置 会 被 保留 到 原 程序 中 。 

OPTIONS 'EXMODE' /* 检查 程序 中 混合 字符 串 的 有 效 性 */ 


'ab«cd' /* 错误 ， 没 有 结束 符号 */ 
'abc.a.b.c» /* 检查 正确 */ 
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(4) NOEXMODE: 设置 在 处 理 含 有 DBCS 的 混合 字符 串 时 按 位 处 理 ， 可 能 会 破坏 
DBCS 数据 的 结构 ， 是 默认 设置 。 


OPTIONS 'NOEXMODE' /* 不 检查 程序 中 混合 字符 的 有 效 性 */ 


3.3.11 SIGNAL 关键 字 


SIGNAL 关键 字 指 令 可 用 于 控制 对 程序 的 跟踪 调试 或 者 改变 程序 的 执行 顺序 。 使 用 
ON 或 者 OFF 来 设置 跟踪 的 状态 ， 并 通过 参数 指定 需要 跟踪 的 事件 类 型 ， 具 体 的 使 用 方 
法 参见 第 9 章 。 

通过 SIGNAL 指令 来 控制 程序 的 执行 顺序 ， 方 法 是 指定 要 跳 转 到 的 标签 名 称 ， 可 以 
是 给 定 的 字符 串 或 者 是 表达 式 的 计算 结果 ( 需 用 VALUE)， 并 且 指 定 的 标签 名 称 需 是 大 
写 ， 和 否则 编译 器 无 法 找到 对 应 的 标签 位 置 。 当 遇 到 SIGNAL 指令 时 ， 停 止 当前 命令 的 执 
行 ,包括 DO、IF、SELECT fi INTERPRET 命令 ， 跳 转 到 程序 中 第 一 个 符合 条 件 的 标签 
处 ， 并 且 这 种 跳 转 是 不 可 恢复 的 ， 对 标签 的 搜索 是 从 程序 起 始 位 置 开 始 的 ， 如 果 有 名 字 
相同 的 标签 ， 则 跳 转 到 第 一 次 出 现 的 地 方 。 

当 程 序 找到 了 对 应 的 标签 位 置 ，SIGNAL 指令 所 在 的 行 数 将 被 记录 到 SIGNAL 变量 
以 便 在 调试 的 时 候 找 到 发 生 跳 转 的 位 置 。 

在 SIGNAL 指令 中 ， 还 可 以 使 用 VALUE 关键 字 ， 用 来 在 运行 时 决定 程序 跳 转 的 位 
例如 : 


NAME = 'TENNIE' 
CALL FUNC NAME, 7 


T 


" 


FUNC: PROCEDURE 
ARG LABEL . /* 通过 传递 参数 来 指定 要 跳 转 的 位 置 */ 
SIGNAL VALUE LABEL 


TENNIE: SAY ARG(1) '!' ARG(2) /* 显示 "TENNIE ! 7" */ 


3.3.0 UPPER 关键 字 


UPPER 关键 字 可 以 将 变量 的 值 转换 成 大 写 , 一 次 可 输入 多 个 变量 (简单 变量 或 复合 
变量 )， 按 照 输入 顺序 依次 转换 。 同 TRANSLATE 内 置 函数 可 以 实现 同样 的 功能 ， 但 是 
TRANSLATE 函数 每 次 只 能 转换 一 个 变量 ，UPPER 指令 比较 方便 。 

A = 'hello'; B = 'world' 

UPPER A B 

SAY A B /* 显示 "HELLO WORLD" */ 

如 果 在 UPPER 后 使 用 了 常量 或 者 复合 词 干 , 将 会 报错 ; 使 用 了 未 定义 的 变量 不 会 产 
生 错 误 或 影响 ， 但 是 如 果 设 置 了 对 NOVALUE 的 跟踪 ， 就 会 引发 异常 。 
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34 REXX 命令 


REXX 程序 遇 到 一 个 表达 式 时 ， 会 首先 按照 指令 来 解析 ， 如 果 无 法 执行 ， 就 认为 这 
是 一 条 命令 ， 并 将 它 发 送 给 当前 的 宿主 环境 来 执行 。 宿 主 环境 执行 了 命令 后 ， 会 把 控制 
权 交 回 REXX 编译 器 ,并 设置 变量 RC 来 保存 返回 值 ， 反 应 命令 执行 的 情况 。 除 此 之 外 ， 
还 可 能 有 一 些 附加 的 信息 ， 如 ERROR 和 FAILURE 等 。 

ERROR 常常 是 可 预期 的 ， 如 定位 字符 串 失 败 等 ， 返 回 值 为 正 。FAILURE 常常 是 不 
可 恢复 的 ， 如 命令 无 法 执行 或 未 找到 相应 命令 等 ， 返 回 值 为 负数 。 如 果 程 序 中 开启 了 对 
ERROR 和 FAILURE 的 跟踪 ,或 者 TRACE E 和 TRACE F 被 设置 ， 那 么 ERROR 和 
FAILURE 的 发 生 将 会 影响 到 程序 的 正常 执行 顺序 。 

在 REXX 命令 发 送 到 对 应 的 宿主 环境 之 前 会 先进 行 解析 ， 所 以 如 果 需 要 保留 原始 输 
入 状态 的 部 分 要 加 引号 。REXX 程序 可 以 发 出 的 命令 主要 有 两 种 ，TSO/E REXX 命令 和 
其 他 宿主 环境 命令 。 本 节 主 要 介绍 TSO/E REXX 命令 ， 关 于 宿主 命令 详 见 第 6 章 。 


3.4.1 TSO/E REXX 命令 


1E TSO/E 环境 下 , 提供 了 许多 供 REXX 使 用 的 系统 命令 , 和 传统 的 TSO/E 命令 (如 
ALLOCATE、PRINTDS) 有 所 不 同 , 它 只 能 用 于 REXX 程序 , 在 CLIST 和 TSO/E READY 
模式 下 不 能 使 用 ， 但 有 一 些 命令 除外 ， 如 EXECUTIL、HE、HI、HT、RT、TE 和 TS。 

EXECUTIL 命令 只 能 在 TSO/E 地 址 空间 中 运行 ， 它 可 以 在 CLIST 程序 以 及 TSO/E 
READY 和 ISPF 面板 中 使 用 ;TS 和 TE 命令 可 以 在 任何 地 址 空间 中 运行 ; HE、HI、HT、 
RT. TE 命令 可 以 在 TSO/E 地 址 空间 使 用 ， 用 于 对 警示 中 断 键 (attention interrupt key) 
的 回复 。 

REXX 命令 可 以 提供 的 服务 有 : 通过 IO 控制 对 数据 集 的 读 写 (EXECIO)， 操 作 数 
据 栈 ( 如 MAKEBUF、DROPBUF、QBUF、QELEM、NEWSTACK、DELSTACK、QSTACK)， 
检查 宿主 命令 环境 (SUBCOM)， 改 变 程序 执行 (EXECUTIL) 等 。 


3.40 TSO/E REXX 命令 的 执行 


在 执行 REXX 命令 时 ， 可 以 传递 参数 ， 如 果 参 数 是 一 个 变量 ， 则 不 能 用 引号 ， 因 为 
要 先 解析 变量 的 值 并 替换 原 命令 中 的 变量 名 称 ， 然 后 传递 到 TSO/E 环境 执行 ， 否 则 会 直 
接 将 带 引 号 的 字符 串 不 加 修改 地 传 出 去 ， 从 而 无 法 传递 正确 的 数值 ， 正 确 的 用 法 如 下 : 


NAME = MYREXX.EXEC 
"LISTDS" NAME "STATUS" 


1. 交互 模式 
如 果 操 作 的 TSO/E 环境 允许 有 用 户 提示 , 那么 当 输 入 一 个 REXX 命令 而 未 指定 操作 


第 3 章 REXX 语 法 


内 容 或 参数 时 ， 系 统 会 提示 用 户 输入 ， 例 如 : 


READY 
LISTDS 
ENTER DATA SET NAME -  /* 提示 输入 数据 集 的 名 称 */ 


用 户 可 根据 需要 打开 提示 设置 ， 显 式 地 输入 PROMPT 参数 ， 例 如 : 

EXEC MYREXX.EXEC(TEST) EXEC PROMPT 

或 者 通过 PROMPT 函数 来 指定 ， 例 如 : 

SAVE = PROMPT('ON') /* SAVE 保存 当前 PROMPT 的 设置 */ 

还 可 以 用 同样 的 方法 关闭 PROMPT. 

X = PROMPT ('OFF') 

SAY PROMPT () /* 读 取 当 前 的 PROMPT 设置 */ 

X = PROMPT (SAVE) /* 用 原来 保存 的 PROMPT 值 来 设置 现在 的 PROMPT */ 

同时 ， 如 果 在 数据 栈 中 有 元 素 存在 ， 并 且 用 户 输入 的 命令 需要 参数 ， 那 么 系统 将 用 
数据 栈 中 的 元 素来 完成 交互 ， 所 以 要 谨慎 使 用 。 


2. 显 式 调用 和 隐 式 调用 

除了 通过 外 部 例 程 的 方法 执行 REXX 程序 外 , 还 可 以 通过 在 一 个 REXX 程序 中 使 用 
EXEC 命令 来 显 式 地 调用 其 他 的 REXX 程序 ,通过 RETURN 或 EXIT 命令 返回 到 调用 程 
序 ， 返 回 值 保存 在 特殊 变量 RC 中 。 

通常 ， 当 所 调用 的 REXX 程序 和 主 程序 不 在 同一 个 分 区 数据 集中 或 者 主 程序 和 被 调 
用 程序 不 在 系统 数据 集 SYSEXEC 和 SYSPROC 中 时 ， 会 采用 显 式 调用 。 


"EXEC MYREXX.EXEC(TEST) '20 A'" 
SAY 'THE RESULT IS' RC 


也 可 以 隐 式 地 调用 REXX 程序 ， 即 不 使 用 EXEC 命令 ,而 是 直接 输出 要 执行 的 程序 
的 名 字 和 可 能 用 到 的 参数 ， 用 引号 括 起 来 ， 程 序 名 前 面 可 以 用 % 标 记 ， 这 样 能 够 缩短 搜 
索 的 时 间 ， 也 可 以 不 标记 。 但 此 时 要 求 主 程序 和 被 调用 程序 都 要 在 SYSEXEC 或 
SYSPROC 中 。 


"STEST 20 A" 


3.43 常用 的 TSO/E REXX 命令 


本 节 主 要 列举 一 些 常用 的 REXX £4. REXX 命令 是 TSO/E 环境 的 保留 字 ， 不 能 用 
来 命名 REXX、CLIST 和 其 他 可 执行 模块 。 
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1. 数据 栈 相关 命令 

关于 数据 栈 的 操作 命令 在 TSO/E 和 非 TSO/E 环境 中 都 能 使 用 。 如 果 在 非 TSO/E 环 
境 中 同时 有 多 个 环境 运行 ， 只 有 创建 数据 栈 的 环境 可 以 操作 相应 的 数据 栈 ， 其 他 环境 则 
不 能 。 

1) NEWSTACK 和 DELSTACK 命令 

NEWSTACK 命令 用 于 创建 一 个 数据 栈 ， 并 且 后 续 的 操作 都 将 针对 这 个 新 建 的 数据 
栈 而 原来 的 数据 栈 会 被 隐藏 或 隔离 出 来 ， 在 新 的 数据 栈 被 删除 后 ， 才 能 使 用 原来 的 数据 
栈 和 里 面 的 数据 。 一 次 可 以 创建 多 个 数据 栈 ， 但 是 只 有 最 新 创建 的 可 以 被 使 用 。 

DELSTACK 命令 用 来 删除 最 新 创建 的 数据 栈 和 里 面 的 全 部 元 素 ， 用 QUEUED 函数 
可 以 得 到 当前 使 用 的 数据 栈 中 元 素 的 数量 。 

"NEWSTACK" — /* 创建 新 数据 栈 */ 

PUSH eleml 

PUSH elem2 


"DELSTACK" — /* 删除 之 前 创建 的 数据 栈 */ 


2) MAKEBUF fill DROPBUF 命令 

MAKEBUF 命令 用 于 在 数据 栈 上 创建 一 个 新 的 缓冲 区 。 在 数据 栈 创建 时 ， 拥 有 一 个 
buffer0 缓冲 区 ，MAKEBUF 创建 新 的 缓冲 区 并 返回 编号 ， 保 存在 RC 中 ， 如 1、2 等 。 

DROPBUF 命令 可 以 删除 最 新 创建 的 缓冲 区 并 清空 数据 ， 也 可 以 通过 指定 缓冲 区 的 
编号 来 删除 一 个 特定 的 缓冲 区 和 在 它 之 后 创建 的 所 有 缓冲 区 。 如 果 使 用 DROPBUF 0 命 
S, 数据 栈 上 所 有 由 MAKEBUF 创建 的 缓冲 区 和 数据 都 将 被 清空 ， 但 是 buffer0 会 保留 ， 
不 会 被 删除 (内 部 数据 会 清空 )， 因 为 它 不 是 MAKEBUF 命令 创建 的 。 该 命令 的 执行 结 
果 会 存放 在 RC 中 ，0 表示 删除 成 功 ，1 表示 指定 的 缓冲 区 编号 不 是 一 个 有 效 的 数值 ， 如 
DROPBUF A 命令 ，2 表示 指定 的 缓冲 区 编号 不 存在 。 


"MAKEBUF" /* 创建 缓冲 区 */ 

SAY 'The number of buffers created is' RC /* RC = 1 */ 
PUSH elemi 

PUSH elem2 

"MAKEBUF" /* 创建 新 缓冲 区 */ 


PUSH elem3 


"DRoPBUE" —— /* 将 第 二 次 创建 的 缓冲 区 删除 */ 


3) QSTACK 命令 

QSTACK 命令 用 于 返回 先 用 程序 中 存在 的 数据 栈 数量 , 包括 buffer0 在 内 。 如 果 未 使 
用 MAKESTACK 命令 ，RC 的 值 为 1。 该 命令 可 以 被 程序 以 及 它 所 调用 的 函数 和 子 例 程 
调用 。 
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"NEWSTACK" /* 创建 数据 栈 stack 2 */ 

"NEWSTACK" /* 创建 数据 栈 stack 3 */ 

"DELSTACK" /* 删除 数据 栈 stack 3 */ 

"QSTACK" 

SAY 'The number of data stacks is' RC /* RC -2 */ 
4) QBUF 命令 


QBUF 命令 用 来 计算 新 创建 的 数据 栈 上 建立 的 缓冲 区 数量 ， 返 回 值 存放 在 RC 中 。 
如 果 未 使 用 MAKEBUF 命令 创建 缓冲 区 ，QBUF 命令 返回 0。 


"MAKEBUF" /* 创建 缓冲 区 */ 


"MAKEBUF" /* 创建 缓冲 区 */ 


"DROPBUF" /* 删除 后 创建 的 缓冲 区 */ 
"OBUF" 
SAY 'The number of buffers created is' RC /* RC - 1 */ 


5) QELEM 命令 

QELEM 命令 用 于 计算 新 创建 的 数据 缓冲 区 中 元 素 的 数量 ， 如 果 未 使 用 MAKEBUF 
创建 缓冲 区 ， 则 RC 的 值 为 0， 与 当前 数据 栈 中 元 素 的 数量 无 关 。 

"MAKEBUF" 

PUSH one 

PUSH two 

PUSH three 

"QELEM" 

SAY 'The number of elements in the buffer is' RC /* RC = 3 */ 


2. EXECIO 命令 

EXECIO 命令 用 于 处 理 数据 集 的 输入 输出 。 可 以 一 次 从 数据 集中 读 取信 息 到 数据 栈 
中 进行 顺序 处 理 或 者 放 到 一 组 变量 中 进行 随机 访问 等 操作 。 同 样 ， 也 可 以 将 数据 栈 或 者 
变量 的 信息 写 回 数据 集中 。EXECIO 可 以 对 数据 集 进行 增 、 删 、 查 、 改 等 许多 操作 ， 但 
是 不 支持 对 有 跨 域 记录 、 磁 道 溢 出 或 者 未 定义 记录 格式 的 文件 进行 IO 操作 。 

可 以 执行 IO 操作 的 数据 集 可 以 是 顺序 数据 集 或 者 是 分 区 /扩展 分 区 数据 集 的 一 个 成 
员 ， 在 对 数据 集 进 行 IO 操作 之 前 ， 要 先 通 过 命令 将 数据 集 分 配给 一 个 文件 ，EXECIO 
本 身 命令 不 具有 分 配 功 能 。 

对 于 未 指定 LRECL,RECFM,BLKSIZE 的 文件 , EXECIO 会 按照 默认 值 进行 处 理 。 但 
是 如 果 文 件 的 分 配 信息 已 经 设置 ， 如 BLKSIZE 为 0， 即 使 向 文件 写 入 数据 (EXECIO 
DISKW)， 文 件 块 的 大 小 也 不 会 被 EXECIO 重 置 。 

当 操作 的 数据 集 是 一 个 被 多 用 户 共享 的 系统 数据 集 时 ， 要 在 使 用 EXECIO 之 前 指定 
数据 集 的 类 型 为 OLD， 以 便 在 VO 操作 时 可 以 独占 使 用 数据 集 。 在 操作 结束 后 ， 常 常 需 
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要 手动 关闭 数据 集 ， 除 非 操作 数据 集 的 任务 结束 了 ， 或 者 编译 器 停止 工作 。 

在 使 用 EXECIO 时 ， 后 面 的 操作 数 CDISKW. STEM. FINIS. LIFO) 建议 用 引号 
括 起 来 ， 以 防止 操作 和 变量 名 混淆 。 例 如 ， 如 果 定 义 了 一 个 名 为 stem 的 变量 ， 并 且 使 用 
了 EXECIO STEM 命令 ， 如 果 未 使 用 引号 ， 那 么 STEM 将 会 被 识别 为 变量 ， 并 用 其 相应 
的 值 来 蔡 换 。 上 有 具体 的 IO 操作 参见 第 5 章 。 

"EXECIO * DISKR myindd 100 (FINIS" 

/* 从 第 100 行 开 始 读 取 全 部 的 数据 到 数据 栈 中 */ 

"EXECIO 0 DISKR myindd 100 (OPEN" 

/* 打开 数据 集 ， 从 第 100 行 开 始 ， 不 读 取 数 据 到 数据 栈 */ 


3. EXECUTIL 命令 
EXECUTIL 命令 用 来 控制 程序 在 TSO/E 环境 下 的 执行 ,可 以 用 在 REXX 程序 ,CLIST 
程序 以 及 READY 和 ISPF 面板 中 。 同 样 也 可 以 在 一 些 使 用 TSO 服务 的 高 级 语言 中 搭配 
使 用 EXECUTIL fil HI, HT. RT. TS, TE 命令 ， 但 是 在 READY 和 ISPF 中 ， 不 能 使 用 
HI. HT 和 RT， 因为 当前 没有 正在 运行 的 REXX 程序 。 
EXECUTIL 命令 可 以 完成 以 下 功能 。 
设置 系统 运行 库 〈 默 认 是 SYSEXEC) 在 程序 载 入 后 是 否 关闭 。 
控制 TRACE 指令 的 开启 和 关闭 。 
终止 程序 的 翻译 过 程 。 
禁止 和 恢复 程序 对 终端 的 输出 。 
修改 程序 包 目 录 中 的 项 目 。 
设置 除了 SYSPROC 外 是 否 还 有 搜索 其 他 的 运行 库 。 
EXECUTIL 命令 的 使 用 注意 以 下 事项 。 
e 所 有 的 EXECUTIL 操作 是 互 斥 的 ， 也 就 是 说 ， 每 次 只 能 使 用 一 个 运算 量 CHI. 
HT. RT. TE. TS). 
e EXECUTIL 命令 是 基于 编译 过 程 的 命令 , 即 它 的 作用 范围 是 当前 执行 该 命令 的 环 
境 ， 如 当 用 户 使 用 分 屏 ， 并 且 在 其 中 一 个 ISPF 面板 上 使 用 了 EXECUTIL TS 命 
令 ， 只 有 这 个 面板 上 调用 的 程序 会 被 跟踪 ， 另 一 个 ISPF 面板 上 的 程序 则 不 会 。 
示例 : 假设 用 户 刚 编写 了 一 个 新 的 子 例 程 SUBRTN， 想 跟踪 该 子 例 程 的 执行 过 程 ， 
可 以 使 用 下 面 的 代码 在 子 例 程 开始 处 使 用 EXECUTIL TS 打开 跟踪 ， 在 子 例 程 返回 主 调 
程序 之 后 使 用 EXECUTIL TE 结束 跟踪 。 


/* REXX program */ 
MAINRTN: 


CALL SUBRTN 
"EXECUTIL TE" 
EXIT 


/* Subroutine follows */ 
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SUBRTN: 
"EXECUTIL TS" 


RETURN 


下 面 介绍 EXECUTIL 后 面 常用 的 操作 数 。 

1) EXECDD (CLOSE) 和 EXECDD (NOCLOSE) 

EXECDD 用 来 设置 在 程序 载 入 但 是 运行 之 前 是 否 要 关闭 系统 运行 库 , 可 以 用 CLOSE 
来 关闭 或 者 NOCLOSE 来 打开 ， 命 令 的 作用 范围 是 整个 程序 的 运行 空间 直到 下 一 条 
EXECDD 命令 的 修改 。 

EXECDD 作用 的 系统 库 是 由 模块 名 称 表 (module name table) 中 的 LOADDD 参数 
指定 的 ， 默 认 是 SYSEXEC。 如 果 设 定 了 CLOSE， 则 在 程序 载 入 后 立即 关闭 对 应 的 库 。 
如 果 SYSEXEC 中 的 其 他 程序 已 经 或 正在 执行 ， 那 么 SYSEXEC 库 就 会 被 打开 ， 此 时 如 
果 使 用 EXECDD 命令 可 能 产生 其 他 结果 , 因为 SYSEXEC 文件 需要 在 和 打开 它 的 程序 相 
同 的 MVS 任务 级 别 中 关闭 ， 所 以 要 在 运行 库 程序 之 前 设置 EXECDD。 

2) SEARCHDD(YES/NO) 

SEARCHDD 操作 用 来 设置 当 隐 式 调用 程序 时 是 否 要 搜索 系统 库 (默认 是 
SYSEXEC)。YES 表示 先 搜索 SYSEXEC， 如 果 没 有 找到 再 搜索 SYSPROC; NO 表示 只 
搜索 SYSPROC。 可 以 利用 EXECUTIL SEARCHDD 命令 来 动态 设 定 搜索 的 顺序 。 


EXECUTIL SEARCHDD (NO) /* 只 搜索 SYSPROC 库 */ 


3) RENAME 

RENAME 操作 用 于 改变 函数 包 目 录 (function package directory) 中 的 条 目 ， 目 录用 
来 记录 该 函数 包 中 函数 和 子 例 程 的 信息 ， 主 要 有 函数 名 、 入 口 地 址 、 可 执行 模块 的 入 口 
地 址 、 函 数 代码 的 载 入 的 位 置 ， 具 体操 作 参 数 如 下 。 

®© NAME (function-name) 替换 目录 中 func-name 的 值 ， 指 定 新 的 函数 或 子 例 程 的 
名 字 。 

Q) SYSNAME (sys-name) 蔡 换 可 执行 模块 中 调用 函数 代码 段 的 入 口 地 址 ， 如 果 未 
指定 SYSNAME， 则 不 替换 ， 原 模块 失效 。 

G DD (sys-dd) 蔡 换 存放 程序 代码 的 数据 集 ， 如 果 未 设 定 DD 参数 ， 则 sys-dd 的 值 
设 为 空 。 

EXECUTIL RENAME NAME (PARTIAL)  /* 使 函数 包 中 名 为 PARTIAL 的 函数 条 目 失效 */ 


可 以 使 用 EXECUTIL RENAME 命令 通过 替换 目录 表 项 来 执行 不 同 的 代码 ， 这 样 可 
以 在 不 改变 函数 和 子 例 程 名 字 的 情况 下 执行 不 同 的 操作 。 

4. 立即 命令 

立即 命令 (immediate command) 通常 用 于 在 TSO/E 环境 下 执行 REXX 程序 ， 当 输 
入 中 断 键 时 进入 中 断 模式 Cattention mode)， 之 后 系统 会 提示 IRX0920I 消息 ， 此 时 可 以 
输入 立即 命令 来 回应 ， 主 要 有 HI (Halt Interpretation), HT (Halt Typing). HE (Halt 


ES 
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Execution), RT (Resume Typing), TS (Trace Start) 和 TE (Trace End)， 其 中 HE 不 是 
EXECUTIL 后 的 有 效 操作 符 。 另 外 ，TS 和 TE 命令 可 用 于 非 TSO/E 环境 。 

1) TS 和 TE 

TS (Trace Start) 启动 TRACE, TE (Trace End) 结束 TRACE. WRH READY 模 
式 或 ISPF 面板 中 输入 EXECUTIL TS 命令 , 那么 接 下 来 输入 的 REXX 程序 ,它们 所 调用 
的 子 程序 以 及 目前 可 能 正在 执行 的 程序 都 将 被 跟踪 。 

READY 

EXECUTIL TS 


如 果 要 终止 跟踪 程序 ， 可 以 调用 EXECUTIL TE MS, E REXX 程序 或 CLIST 程序 
中 都 可 以 使 用 ， 该 命令 可 以 终止 对 目前 运行 的 所 有 REXX 程序 的 跟踪 。 

2) HI 

HI 命令 用 于 停止 对 所 有 REXX 和 CLIST 程序 的 翻译 , 包括 调用 该 命令 的 程序 本 身 。 
如 果 某 个 程序 设置 了 对 挂 起 CHALT) 情况 的 跟踪 ， 并 且 含有 EXECUTIL HI 命令， 那么 
这 个 程序 以 及 它 所 调用 的 所 有 子 程序 会 停止 翻译 , 但 是 同时 运行 的 其 他 程序 将 不 受 影 响 。 
如 果 一 个 REXX 程序 进入 了 无 限 循 环 ， 可 以 通过 按 下 中 断 键 ， 通 过 系统 提示 ， 输 入 HI 
命令 来 停止 当前 指令 的 执行 来 终止 循环 。 

3) HT 和 RT 

HT 命令 用 于 挂 起 终端 的 输出 , 如 SAY 指令 的 输出 结果 , 但 是 REXX 程序 继续 运行 ， 

萌 误 信息 还 是 会 显示 ， 只 有 常规 的 输出 被 挂 起 ， 直 到 所 有 程序 运行 结束 或 者 调用 
EXECUTIL RT 命令 来 恢复 终端 输出 。RT (Resume Typing) 命令 可 以 恢复 之 前 挂 起 的 
输出 。 

HT 和 RT 指令 对 CLIST 程序 和 其 他 命令 无 效 。 可 以 在 REXX, CLIST 程序 和 程序 中 
调用 TSO 服务 来 执行 HT 和 RT 命令 , 但 是 在 READY 和 ISPF 下 无 效 ， 因 为 并 没有 正在 
运行 的 REXX 程序 。 终 端 输出 被 挂 起 的 程序 包括 执行 HT 命令 本 身 和 其 他 正在 运行 的 
REXX 程序 。 

在 执行 下 例 程序 的 循环 语句 时 ， 每 次 输出 一 条 语句 。 如 果 按 下 中 断 键 (PA1 SD, 3f 
输入 了 HT 命令 ， 那 么 终端 将 停止 输出 ， 当 循环 结束 时 ， 通 过 使 用 EXECUTIL RT 命令 
来 终止 挂 起 过 程 ， 此 时 ， 循 环 中 未 输出 的 那些 语句 将 重新 输出 到 终端 。 


DO i = 1 to 10000 


SAY 'The outcome is'... 
END 
"EXECUTIL RT" 


4) HE 命令 

HE 命令 用 于 终止 REXX 程序 的 执行 , 该 命令 只 对 在 TSO/E 环境 下 执行 的 程序 有 效 。 
它 常常 用 于 终止 那些 用 其 他 语言 编写 的 外 部 函数 或 子 例 程 。 如 果 要 终止 REXX 程序 ， 建 
议 用 HI 命令 。 
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ZEE EUT T ER] HE MA, CE TSO/E fI ISPF 环境 下 的 工作 方式 略 有 差别 。 
如 程序 A 调用 程序 B， 并 且 在 程序 B 执行 期 间 ， 用 户 使 用 了 HE 命令 挂 起 当前 程序 ， 那 
么 ， 如 果 程 序 A 是 在 ISPF 环境 下 被 调用 的 ，HE 命令 会 停止 A 和 B 两 个 程序 的 执行 ; 
如 果 程 序 A 是 在 TSO/E READY 环境 下 被 调用 的 ，HE 命令 只 会 停止 程序 B 的 执行 ， 而 
上 一 级 程序 A 是 否 停止 还 取决 于 它 调用 程序 B 的 方式 :如果 程序 A 是 通过 EXEC 指令 
调用 程序 B， 那 么 HE 命令 不 会 停止 程序 A 的 执行 ， 而 是 将 RC 赋值 12， 并 从 EXEC 语 
句 后 继续 执行 ， 如 果 程 序 A 是 通过 其 他 方式 调用 的 程序 B， 如 CALL 指令 或 函数 调用 ， 
那么 HE 命令 停止 程序 B 后 , 将 控制 权 返 回 到 程序 A, 同时 产生 一 个 SYNTAX 的 特定 事 
件 ， 表 明子 例 程 或 函数 执行 的 失败 情况 。 

如 果 使 用 HE 命令 停止 一 个 外 部 的 子 例 程 、 函 数 或 宿主 命令 ， 那 么 这 些 外 部 的 例 程 
在 停止 后 将 不 再 有 机 会 恢复 控制 权 来 完成 函数 使 用 资源 等 的 释放 工作 ， 需 要 由 恢复 程序 
ESTAE 等 来 执行 函数 等 的 清理 工作 。 

例如 ,在 TSO/E 环境 下 执行 REXX 程序 ， 该 程序 调用 了 一 个 外 部 函数 ， 而 外 部 函数 
进入 了 无 限 循环 ， 此 时 可 以 按 下 中 断 键 ， 并 输入 HE 命令 来 终止 外 部 函数 的 循环 。 


5. SUBCOM 命令 

SUBCOM 命令 通过 设置 RC 的 值 来 检测 某 个 宿主 环境 是 否 可 用 。 如 果 RC 为 0， 标 
识 可 用 , 为 1 表示 不 可 用 。 在 非 TSO/E 环境 下 , 可 用 的 宿主 环境 有 MVS GRU, CPICOMM, 
LU62, LINK, ATTACH, LINKPGM, ATTACHPGM, LINKMVS 和 AITCHMVS。 在 ISPF 
环境 下 ， 可 用 的 宿主 环境 有 TSO CRU), CONSOLE, ISPEXEC, ISREDIT, CPICOMM, 
LU62、MVS、LINK、AITACH、LINKPGM、AITACHPGM、LINKMVS、AITCHMVS。 


"SUBCOM ISPEXEC" 
IF RC - 0 THEN 
ADDRESS ISPEXEC 
ELSE NOP 


3.5 程序 控制 流 


通常 程序 执行 时 ， 是 按照 指令 的 编写 顺序 执行 的 ， 也 可 以 通过 一 些 REXX 指令 来 改 
变 指令 执行 的 顺序 ， 如 跳 过 指令 、 重 复 执行 等 。 这 些 指令 可 分 为 条 件 控制 指令 、 循 环 指 
令 和 中 断 指令 。 


3.5.1 条 件 控制 语句 


条 件 控制 语句 通过 设 定 至 少 一 个 判断 条 件 , 通过 它 的 真 假 值 来 选择 相应 的 执行 路 线 。 
条 件 指令 分 为 两 类 : 二 选 一 和 多 选 一 。 

(D IF/THEN/ELSE 指令 ， 用 于 两 条 支 路 的 选择 。 
用 法 : 
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IF expression THEN instruction 


ELSE instruction 


如 果 将 全 部 指令 写 在 一 行内 ， 需 要 在 ELSE 之 前 加 分 号 隔 开 , BD IF expression THEN 
instruction; ELSE instruction。 如 果 在 THEN 或 ELSE 后 没有 执行 内 容 时 ， 最 好 用 空子 句 
NOP 来 填充 ; 如 果 有 多 条 需要 执行 的 指令 ， 可 以 用 DO-END 来 包括 全 部 执行 集合 ,否则 
编译 器 将 只 执行 ELSE 后 的 第 一 条 指令 。 

同时 该 指令 可 以 嵌 套 ， 但 要 注意 正 -ELSE 与 DO-END 的 配对 使 用 ， 例 如 : 


IF weather = fine THEN 

DO 

SAY 'What a lovely day!' 

IF tenniscourt - free THEN 

SAY 'Shall we play tennis?" 

ELSE 

NOP 

END 

ELSE 

SAY 'Shall we take our raincoats?' 


(2) SELECT/WHEN/OTHERWISE/END 指令 ， 用 于 多 路 选择 ， 如 图 3-1 所 示 。 


SELECT 
WHEN THEN 
Ue Instruction(s) = 
False 
WHEN THEN 
True 
Instruction(s) 上 一 一 | 
False 
WHEN THEN 
True Instruction(s) = 
False 
OTHERWISE 
Instruction(s) = 
END — 


图 3-1 SELECT 指令 图 示 
用 法 : 


SELECT 


WHEN expression THEN instruction 
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WHEN expression THEN instruction 
OTHERWISE 


instruction(s) 
END 


编译 器 通过 WHEN 后 的 条 件 来 选择 执行 的 指令 , 并 且 在 找到 一 个 条 件 为 真 的 表达 式 


后 就 跳出 SELECT 指令 ， 忽 略 后 续 的 所 有 内 容 ， 如 果 没 有 一 个 WHEN 后 的 表达 式 为 真 ， 
就 执行 OTHERWISE 后 的 指令 。 同 样 ， 这 里 可 以 使 用 DO-END 来 包括 许多 条 指令 ,用 在 
OTHERWISE 后 的 指令 可 省 略 DO-END 结构 。 


SELECT 
WHEN weather = fine THEN SAY ' What a lovely day!" 
WHEN tenniscourt = free THEN SAY ' Shall we play tennis?" 


OTHERWISE 
SAY ' Shall we stay at home?' 
END 


3.5.2 ”循环 控制 语句 


循环 控制 语句 可 重复 执行 一 套 指 令 ， 通 过 执行 特定 的 次 数 或 者 条 件 判断 来 确定 循环 


的 终止 。 循 环 控制 指令 主要 分 为 两 类 : 重复 循环 和 条 件 循环 。 所 有 循环 语句 都 是 在 
DO-END 结构 内 ， 循 环 可 以 嵌 套 ， 注 意 DO 和 END 的 匹配 即 可 。 


用 法 : 


Do repetitorClause 
Instruction(s) 
End 


1. 重复 循环 语句 
可 以 用 数值 常量 或 者 变量 来 控制 循环 次 数 。 当 使 用 变量 时 ， 默 认 情 况 下 每 次 变量 的 


值 增加 1， 也 可 以 通过 BY 来 更 改 每 次 的 增 量 值 ， 通 过 FOR 来 控制 最 大 循环 次 数 。 


Do i = 1 to 10 BY 2 FOR 2 
SAY 'HELLO WORLD. ' 

END 

/* 结果 将 输出 2 1T HELLO WORLD */ 


2. 条 件 循环 语句 
条 件 循环 包括 DO WHILE 字句 和 DO UNTIL， 二 者 的 区 别 是 DO WHILE 子 句 在 第 


一 次 进入 循环 体 前 即 进行 循环 条 件 检测 ， 仅 当 条 件 表达 式 为 真 时 继续 循环 DO UNTIL 
子 句 在 执行 后 进行 条 件 检 测 , 仅 当 条 件 表达 式 为 假 时 继续 循环 。 因而 后 者 至 少 执行 一 次 。 


QUANTITY = 20 
DO NUMBER = 1 TO 10 WHILE QUANTITY < 50 /*(UNTIL QUANTITY > 50)*/ 
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QUANTITY = QUANTITY + NUMBER 
SAY 'QUANTITY = 'QUANTITY 
END 

/* 两 条 语句 的 输出 结果 相同 */ 


3. DO FOREVER 结构 

DO FOREVER 循环 可 以 实现 无 限 循环 ， 例 如 ， 要 读 一 个 文件 中 的 数据 ， 到 文件 结尾 
再 停止 ， 或 者 由 用 户 通过 特定 的 输入 停止 程序 ， 这 些 情 况 下 就 比较 适合 无 限 循环 ， 当 满足 
结束 条 件 时 ， 再 通过 EXIT 停止 循环 。 可 以 用 DO-WHILE 来 实现 DO-FOREVER 的 功能 。 


4. LEAVE 和 ITERATE 命令 
LEAVE 指令 可 以 立刻 终止 循环 ， 跳 到 END 语句 之 后 执行 ，ITERATE 指令 终止 当 次 
的 循环 ， 回 到 DO 语句 ， 开 始 新 一 次 的 循环 。 例 如 : 


DO0i-1705 
IF i - 3 THEN 
ITERATE 
ELSE 
SAY i 
END 
/* 输出 为 1 2 4 5 */ 
DO outer = 1 TO 2 
DO inner - 1 TO 2 
IF inner » 1 THEN 
LEAVE inner /* 跳 出 内 循环 */ 
ELSE 
SAY 'INNER' 
END 
SAY 'OUTER' 
END 
/x* 输 出 为 INNER OUTER INNER OUTER */ 


上 例 中 LEAVE inner 中 inner 为 循环 变量 , 在 循环 嵌 套 中 ,REXX 允许 用 循环 变量 标 
示 一 个 循环 。 上 例 中 LEAVE inner. ITERATE inner. LEAVE outer、ITERATE outer 都 是 
合理 的 用 法 。 另 外 一 个 示例 如 下 。 


Do outer = 1 


Do inner - 1 
If ... Then Iterate inner 
If ... Then Iterate outer 
If ... Then Leave inner 


End inner 
»- 


End outer 


$832 REXX 语 法 


5. 死 循环 处 理 

如 果 程 序 陷 入 了 无 限 循 环 ， 可 以 通过 中 断 键 (attention interrupt key? 停止 循环 ， 此 
时 用 户 会 得 到 一 条 IRX0920I 的 消息 ， 回 复 三 。 如 果 循 环 未 停止 ， 可 再 次 按 中 断 键 ， 回 
复 HE. 

HI 不 会 停止 由 程序 调用 的 非 REXX 的 外 部 函数 、 子 例 程 和 宿主 命令 , 直到 程序 返回 
REXX 时 才 会 响应 HI 请求 。HE 可 以 停止 以 上 这 些 情 况 下 的 无 限 循环 ， 但 是 不 会 停止 调 
用 这 些 程序 的 REXX 程序 ， 在 ISPF 环境 下 运行 时 除外 。 同 时 HE 不 会 改变 HI 请 求 的 结 
果 ， 也 就 是 说 ， 如 果 先 输入 了 HI 但 未 成 功 停止 ， 然 后 又 输入 了 HE 来 终止 循环 ， 此 时 返 
回调 用 的 REXX 程序 内 ， 之 前 HI 的 请 求 将 会 被 跟踪 到 。 


3.53 penny 


中 断 语句 可 告知 编译 器 退出 整个 程序 或 者 程序 的 一 部 分 ， 然 后 跳 转 到 标识 Cabe? 
处 ， 或 者 执行 子 例 程 。 中 断 循环 的 指令 包括 以 下 3 类 。 


1. EXIT 

EXIT 指令 使 程序 无 条 件 终止 并 且 返 回 到 程序 调用 处 ， 如 果 该 程序 是 由 ISPF 面板 的 
PROC 部 分 调用 的 ，EXIT 指令 将 程序 返回 ISPF 面板 。 与 此 同时 ，EXIT 会 向 调用 者 返回 
一 个 值 。 如果 程序 是 另 一 个 REXX 程序 的 子 例 程 , 则 返回 值 存储 在 特殊 变量 RESULT 中 ; 
如 果 是 一 个 函数 ， 则 返回 值 存储 在 函数 调用 的 表达 式 中 ; 其 他 情况 下 ， 返 回 值 存 储 在 特 
殊 变量 RC 中 。 返 回 值 可 用 于 表达 式 或 常量 的 计算 。 


2. CALL/RETURN 

CALL 指令 通过 调用 内 部 或 者 外 部 子 例 程 来 中 断 现 有 程序 ， 其 中 ， 内 部 子 例 程 是 调 
用 程序 的 一 部 分 , 通过 标签 标识 调用 位 置 (在 CALL 指令 后 面 ), 而 外 部 子 例 程 则 是 另外 
一 个 REXX 或 其 他 系统 支持 的 程序 ， 通 过 程序 名 来 标志 。 当 调用 程序 结束 后 ， 通 过 
RETURN 指令 返回 到 原 调用 处 ， 继 续 执行 原 程序 ， 如 图 3-2 所 示 。 


MAIN .EXEC 


CALL sub 


instruction (s) 
EXIT 


sub: 


instruction (s) SUB.EXEC 
——— RETURN 
(a) 内 部 子 例 程 (b) 外 部 子 例 程 


图 3-2 CALL 指令 图 示 


3. SIGNAL 

SIGNAL 的 功能 与 CALL 类 似 ， 可 以 跳 转 到 目标 标签 处 ， 并 且 标 签 的 位 置 可 以 置 于 
程序 的 任意 位 置 ， 不 必 放 在 SIGNAL 指令 之 后 。 与 CALL 指令 不 同 的 是 ，SIGNAL 指令 
不 会 返回 到 指令 的 调用 处 。 即 如 果 在 循环 内 使 用 SIGNAL 指令 ， 则 程序 从 SIGNAL 后 的 
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标签 处 继续 执行 ， 而 原 有 的 循环 自动 终止 ， 如 果 在 一 个 子 例 程 内 部 使 用 SIGNAL 指令 ， 
由 该 子 例 程 不 会 再 返回 到 其 调用 处 。 

SIGNAL 指令 主要 用 于 程序 的 测试 或 特殊 情况 的 处 理 ， 而 不 是 通常 意义 上 的 跳 转 ， 
为 它 无 法 返回 ， 例 如 : 


p= 


Ex 


DO UNTIL EXPRESSION1 
INSTRUCTION 
IF EXPRESSION2 THEN 
SIGNAL JUMP 
ELSE 


INSTRUCTION(S)  /* 如 跳 转 ， 这 些 指令 将 不 会 被 执行 */ 


JUMP: 
INSTRUCTION (S) 


函数 和 子 例 程 


函数 和 子 例 程 是 由 一 系列 指令 组 成 的 ， 是 可 以 用 来 接收 、 处 理 和 返回 数据 的 程序 片 
段 ， 包 括 内 部 例 程 和 外 部 例 程 两 种 。 内 部 例 程 是 和 调用 程序 在 同一 个 源 文件 内 ， 用 标签 
标识 函数 体 ， 并 且 只 能 被 当前 程序 调用 ;外 部 例 程 是 一 个 程序 或 可 执行 模块 ， 可 以 被 其 
他 的 程序 调用 ， 为 了 保证 可 以 找到 外 部 例 程 的 位 置 ， 调 用 程序 和 被 调用 的 例 程 都 要 存放 
在 系统 库 SYSEXEC 和 SYSPROC 中 ， 或 者 放 在 同一 个 分 区 数据 集 的 两 个 成 员 中 。 函 数 
和 子 例 程 的 指令 内 容 相 近 ， 但 是 在 调用 方式 和 返回 值 方面 不 尽 相 同 ， 所 以 要 根据 不 同 的 
需要 来 选择 调用 函数 还 是 子 例 程 。 


4.1” 通 数 的 编写 和 调用 


简单 地 说 ， 函 数 是 能 够 接受 数据 、 处 理 数据 并 返回 数值 以 完成 某 些 特定 功能 的 指令 
序列 和 代码 片段 ， 在 REXX 中 ， 函 数 主要 包括 了 以 下 几 种 。 

CD. 内 置 函 数 (built-in function): 即 内 建 于 REXX 语言 内 部 的 功能 函数 ，REXX 语 
言 强大 的 原因 之 一 就 是 功能 丰富 的 内 置 函 数 能 极 大 地 方便 用 户 编程 。 

(2) 用 户 函 数 Cuser-written function): 即 用 户 自己 编写 的 功能 函数 ， 用 户 函 数 可 以 
在 当前 REXX 程序 Cexec) 内 部 以 特定 标签 标识 ， 称 之 为 内 部 函数 ， 亦 可 以 位 于 主 调 程 
序 的 外 部 ， 或 者 本 身 就 是 自 包含 程序 ， 都 称 之 为 外 部 函数 。 内 部 函数 通常 指令 数目 少 ， 
参数 传递 快 ， 调 用 时 搜索 函数 体 的 速度 快 ， 外 部 函数 通常 功能 较 复杂 ， 并 且 可 以 被 许多 
程序 多 次 调用 。 

(3) 函数 包 (Function package): 由 产品 或 者 某 些 用 户 编写 的 特定 功能 函数 或 者 子 例 
程 以 打包 的 形式 提供 发 布 。 例 如 ，TSO/E 外 部 函数 就 是 通过 系统 函数 功能 包 提 供 。 

函数 的 调用 形式 如 下 ， 注 意 在 函数 名 和 左 括号 中 不 能 插入 空格 。 

ReturnValue-functionName( [ Expression[,Expression [, ...]1) 

函数 的 参数 列表 最 多 可 包含 20 个 参数 表达 式 , 以 逗号 分 隔 , 参数 表达 式 可 以 是 空格 、 
常量 、 符 号 名 称 、 字 符 串 等 ,因此 function( ). function(66). function( X). function('literal 
string’), function(function( X)) 等 都 是 合法 的 调用 形式 。 

所 有 函数 都 要 有 返回 值 ， 返 回 值 蔡 换 函数 的 位 置 ， 所 以 函数 调用 常用 于 表达 式 中 ， 
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不 会 单独 出 现在 一 条 指令 中 。 


4.2 子 例 程 的 编写 和 调用 


子 例 程 和 函数 类 似 ， 都 是 由 能 够 接受 数据 、 处 理 数据 并 返回 值 的 完成 某 些 特定 功能 
的 指令 序列 和 代码 片段 组 成 。 子 例 程 在 调用 结束 时 ,通过 RETURN 语句 返回 。 和 函数 不 
同 的 是 ， 子 例 程 对 于 返回 值 的 要 求 不 是 必需 的 。 

子 例 程 同 样 分 为 内 部 子 例 程 和 外 部 子 例 程 两 种 ， 内 部 子 例 程 指 的 是 位 于 REXX 程序 
(exec) 内 部 标签 标识 ， 仅 在 本 程序 中 使 用 的 例 程 ， 外 部 子 例 程 指 的 是 存放 于 分 区 数据 集 
中 成 员 中 的 程序 片段 或 者 REXX 程序 ， 可 被 其 他 多 个 REXX 程序 调用 。 子 例 程 的 调用 方 
式 如 下 。 


CALL SubroutineName [Expression [, Expression [,...etc ] ] 


在 确定 选择 子 例 程 或 者 函数 实现 相应 功能 时 ， 主 要 考虑 两 点 : 一 是 返回 值 是 否 必 需 。 
如 果 不 是 ， 则 可 使 用 子 例 程 实现 。 二 是 返回 值 是 否 作为 表达 式 的 一 部 分 出 现在 指令 中 。 
如 果 是 ， 则 应 考虑 使 用 函数 。 事 实 上 ， 很 多 子 例 程 和 函数 的 功能 实现 代码 几乎 相同 ， 既 
可 以 被 用 作 子 例 程 ， 亦 可 被 用 作 是 函数 调用 ， 下 例 中 的 内 置 函 数 SUBSTR 就 是 如 此 。 


/* 内 置 函数 SUBSTR 的 函数 调用 方式 */ 
x = SUBSTR('verylongword',1,8) /* x 被 赋值 'verylong' */ 


/* 内 置 函数 SUBSTR 的 子 例 程 调用 方式 */ 
CALL SUBSTR 'verylongword', 1, 8 
x = RESULT /* x 被 赋值 'verylong' */ 


/* 以 上 两 种 方式 均 可 实现 对 SUBSTR 的 调用 */ 


关于 子 例 程 的 参数 传递 和 返回 值 同 前 述 的 函数 大 致 相同 ， 读 者 可 参考 前 文 所 述 。 下 
例 给 出 一 个 使 用 了 两 种 实现 方式 的 实例 。 


[r kkkkkkkkkkkkkkkkREXX*žkkkkkkkkkkkkkkkkkkkk/ 
CALL subroutine 'ab', 'cd', 'ef' 
SAY result 
SAY subfunc('ab', 'cd', "'ef') 
RETURN 0 


/* 显示 结果 为 abcdef */ 

/* 显示 结果 为 efcdab */ 

/ ** 太 二 炎炎 炎炎 炎炎 大 二 SUDLOULin qfi cH eee ex 
subroutine: PROCEDURE 


PARSE ARG stringl, string2, string3 
RETURN stringl || string2 || string3 


fx*******subFunc() T EU ScHI ooo J 
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subfunc: PROCEDURE 
PARSE ARG strl, str2, str3 
RETURN str3||str2||stri 


43 搜索 顺序 


对 函数 和 子 例 程 的 搜索 顺序 是 : 首先 在 程序 内 部 搜索 是 否 是 内 部 函数 或 例 程 ， 其 次 
查找 是 否 是 内 置 函数 ， 最 后 是 外 部 函数 或 例 程 ， 如 图 4-1 所 示 。 
e 内 部 例 程 调用 内 部 例 程 的 时 候 ， 函 数 名 称 不 能 加 引号 。 
e 内 置 函 数 ， 内 置 函数 名 称 是 大 写 的 ， 所 以 在 使 用 字符 串 表 示 时 要 注意 大 写 。 
e 外 部 函数 和 子 例 程 需要 放 正 SYSEXEC 和 SYSPROC 中 ,或 和 主 程序 放 在 一 个 
分 区 数据 集中 。 


CALL DATE 


DATE: PROCEDURE 

ARG IN 

IF IN = '' THEN IN = 'STANDARD' 
RETURN 'DATE' (IN) 


上 例 中 ， 调 用 函数 DATE 时 ， 会 先 搜索 程序 内 部 ， 发 现 了 DATE 函数 的 定义 后 ， 会 
调用 该 函数 , 此 时 , 系统 自 带 的 内 置 函 数 DATE 将 不 会 被 调用 。 如 果 未 在 程序 中 定义 DATE 
函数 ， 那 么 将 调用 内 置 函 数 DATE. 

搜索 外 部 函数 
1 
搜索 函数 包 


未 找到 
1 


是 否 设置 | æ 搜索 ”| 找到 | a. 
FUNCSOFL REXX 程 序 


E 未 找到 | 
1 u 
HE omauznpe 搜索 运行 库 B» 


找到 搜索 


找到 


1 Y 未 找到 
成 功 失败 


图 4-1 函数 和 例 程 的 搜索 顺序 
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对 于 外 部 函数 和 例 程 的 调用 ， 采 用 的 顺序 是 ， 首 先 搜索 函数 包 一 一 用 户 自 定义 函数 
包 、 本 地 函数 包 和 系统 函数 包 。 如 果 未 找到 函数 ， 则 系统 会 检查 函数 搜索 标记 
FUNCSOFL， 判 断 是 否 要 在 搜索 REXX 程序 前 先 搜索 运行 库 。 如 果 该 标记 设置 为 OFF， 
则 先 检查 运行 库 中 是 否 有 对 应 函数 ， 没 有 再 检查 REXX 程序 。 如 果 标 识 为 ON， 则 先 检 
查 REXX 程序 再 检查 运行 库 。 默 认 情况 下 ，FUNCSOFL 为 OFF。 可 以 使 用 TSO/E 环境 
下 的 EXECUTIL RENAME 命令 来 改变 函数 包 中 的 函数 条 目 。 
搜索 运行 库 时 ， 顺 序 是 ， 工作 包 区 、ISPLLIB 、 任 务 库 和 前 面 的 全 部 任务 库 、 作 
业 步 库 、 链 接 包 区 (LPA) 和 链接 库 。 

当 搜 索 REXX 程序 时 ， 顺 序 如 下 。 

(1) 含有 调用 函数 的 数据 集 。 

(2) ALTLIB 命令 设置 的 程序 库 。 

(3) 检查 NOLOADDD 的 设置 。 如 果 NOLOADDD 设置 为 OFF， 就 搜索 SYSEXEC 
中 的 数据 集 ，(SYSEXEC 是 系统 默认 的 存储 REXX 程序 的 库 )， 如 果 未 找到 函数 ， 就 搜 
索 SYSPROC 库 ， 如 果 还 没 找到 就 停止 搜索 ,如果 设 置 为 ON， 就 直接 搜索 SYSPROC， 
未 找到 就 停止 搜索 。 根 据 FUNCSOFL 的 设置 ， 运 行 库 可 能 未 被 搜索 。 

搜索 REXX 程序 框图 如 图 4-2 所 示 。 

搜索 REXX 程 序 


1 
搜索 DD 语句 
定义 的 数据 集 


未 找到 


主 程序 是 否 在 否 AN 
CAMBOBPRREELUT 07] 


Ts 


lE 


Y 
搜索 有 ALTLIB 语 名 

定义 的 运行 库 未 找到 
未 找到 


E dcm 一 搜索 SYSPROC 
Roig 
1 8 


搜索 LOADDD 语 句 未 找到 
定义 的 库 


图 4-2 搜索 REXX 程序 框图 


44 参数 传递 


REXX 主 程序 和 内 部 函数 、 子 例 程 之 间 可 以 共享 变量 ， 即 通过 使 用 相同 的 变量 来 传 
递 参 数值 ， 并 且 不 需要 使 用 引号 。 但 是 对 于 外 部 的 例 程 来 说 ， 就 不 能 直接 使 用 相同 名 称 
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的 变量 ， 需 要 通过 调用 时 参数 或 数据 栈 等 来 传递 数值 。 通 常 传递 信息 的 方法 有 两 种 ， 变 
量 共 享 和 传递 参数 ， 下 面 分 别 简要 介绍 一 下 。 


1. 变量 共享 

当主 程序 和 被 调用 程序 在 同一 个 REXX 程序 中 时 ， 无 论 是 在 主 程序 部 分 还 是 子 例 程 
和 函数 中 ， 只 要 是 对 这 个 变量 的 操作 都 是 有 效 的， 变量 的 结果 会 体现 最 后 更 新 的 操作 。 
可 以 直接 在 被 调用 程序 中 使 用 该 变量 ， 也 可 以 将 子 程序 中 的 变量 返回 到 主 程序 中 ， 达 到 
享 的 目的 ， 例 如 : 


[k kkkkkkkkkkkkkkkkkkkkkkkkREĘXXkkkkkkkkkkkkkkkkkkkkkkkk/ 


firstName = "Amily" 

lastName = "Wandor" 

CALL subroutine 

SAY name /* 显 示 为 “Amily Wandor”*/ 
EXIT 


subroutine: 
name = firstName + " " + lastName 
RETURN 
/* 子 例 程 直接 使 用 firstName fll lastName 变量 , 并 通过 name 返回 结果 */ 


使 用 公共 变量 可 能 会 产生 各 种 问题 ， 公 共 变 量 对 所 有 子 例 程 的 暴露 使 程序 逻辑 变 得 
混乱 并 难以 维护 。 在 REXX 中 ， 可 以 使 用 PROCEDURE 命令 解决 ， 在 子 标 签 后 添加 
PROCEDURE 关键 字 , 则 规定 所 有 子 例 程 中 出 现 的 变量 使 用 范围 保护 为 子 例 程 内 部 有 效 。 
当 执 行 RETURN 指令 返回 时 ， 所 有 子 例 程 中 的 参数 值 被 DROP 掉 并 恢复 到 调用 之 前 ， 
这 样 ， 即 使 子 例 程 中 使 用 了 主 调 程序 相同 名 的 变量 ， 也 不 会 对 主 调 程序 产生 影响 ,例如 : 

E k k d dee doe de de ke de de de dde de dkk kdk RE X K K K ke ke ke de de e e de ke ke e e keke ke kkk kkk y 

number1=10 

CALL subroutine 


SAY number1 number2 /* 显示 结果 为 ”10 NUMBER2 */ 
EXIT 


subroutine: PROCEDURE  /* 子 程序 的 变量 被 屏蔽 , 不 再 被 共享 */ 
number1=7 

number2-5 

RETURN 


有 时 ， 需 要 暴露 子 程序 的 某 些 变量 ， 可 以 使 用 PROCEDURE 的 EXPOSE 选项 将 某 
些 变量 暴露 给 主 调 程序 。 这 样 在 子 程序 中 对 变量 的 操作 会 反映 到 主 程序 中 ， 并 且 在 
RETURN 后 不 会 被 复写 。 

如 果 不 加 括号 ， 变 量 名 可 以 用 空格 和 逗号 分 开 ， 例 如 : 

/* REXX 主 程序 部 分 */ 

J-1; Z.1-'A' 
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CALL TOFT 
SAY JKM /* 显示 "1 7 M" */ 
EXIT 


/*REXX 子 例 程 部 分 */ 
TOFT: PROCEDURE EXPOSE J K Z.J 


SAY J K Z.J /* 显示 "1 KA" */ 
K-7; M-3 /* 注意 : M 未 被 共享 */ 
RETURN 


如 果 用 括号 将 一 个 变量 名 括 起 来 ， 则 该 变量 名 通常 表示 一 个 变量 序列 ， 该 变量 和 
所 包括 的 变量 都 会 被 共享 ， 例 如 : 


/* REXX 主 程序 部 分 */ 

J-1; K-6; M-9 

ATK /* 定义 变量 序列 */ 
CALL TEST EXIT 


/* REXX 子 例 程 部 分 */ 

TEST: PROCEDURE EXPOSE (A) /* 暴露 变量 A 和 J, K, M */ 
SAYAJKM /[* 显示 "JKM1 69" */ 
RETURN 


2. 传递 参数 


e 


[21 


另 一 种 传递 信息 的 方法 是 通过 在 调用 函数 和 子 例 程 时 使 用 参数 来 传递 数值 ， 每 次 最 


多 可 传递 20 个 参数 ， 用 逗号 隔 开 。 


CALL SUBROUTINE NAME ARGUMENT1， ARGUMENT2, ARGUMENT3,... 
FUNCTION(ARGUMENT1, ARGUMENT2, ARGUMENT3,...) 


被 调用 的 函数 和 子 例 程 可 以 使 用 ARG d PESE RES, Dn: 
ARG argl, arg2, arg3,... 


ARG 和 CALL 的 参数 是 通过 位 置 对 应 ， 而 不 是 名 称 ， 传 过 来 的 第 一 个 数值 给 第 一 
参数 ， 第 二 个 数值 给 第 二 个 参数 ， 依 此 类 推 。 

[CXII ede kedek ek ekeekekeolekodekeek lol KB EX XOOokokokokolokdokolekoekolekelelekeek dee / 

PARSE ARG LONG WIDE 

CALL PERIMETER LONG, WIDE 

SAY 'THE PERIMETER IS' RESULT 'INCHES.' /* RESULT - PERIM */ 

EXIT 


PERIMETER: 

ARG LENGTH, WIDTH /* LENGTH = LONG, WIDTH = WIDE */ 
PERIM = 2*LENGTH + 2*WIDTH 

RETURN PERIM 


4 
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另 一 种 接受 参数 的 方式 是 使 用 内 置 的 ARG 函数 , 该 内 置 函数 返回 了 特定 位 置 的 参数 
值 。 如 上 例 可 写成 : 


LENGTH = RRG (1) 
WIDTH = RARG(2) 


子 例 程 通过 RETURN 指令 返回 到 主 调 程序 ， 并 且 只 能 返回 一 个 表达 式 。RETURN 
指令 中 的 表达 式 可 以 是 数字 (RETURN 8)、 变 量 名 (RETURN argl arg2) 或 者 字符 串 
(RETURN "literal string’ )， 甚 至 是 运算 表达 式 (RETURN num*12)， 返 回 表达 式 计算 后 
的 结果 值 放 入 到 REXX 的 特殊 变量 RESULT 之 中 , 主 调 程序 通过 该 变量 即 可 访问 返回 值 。 
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REXX 提供 了 功能 丰富 的 内 置 函 数 ， 给 用 户 编程 带 来 了 极 大 方便 。 此 外 ，TSO/E 还 
提供 了 6 个 内 置 函数 : EXTERNALS、 FIND, INDEX, JUSTIFY. LINESIZE 和 USERID. 
内 置 函数 的 使 用 示例 如 下 。 
[ROCK d doood ko dede dode dede dded dok RE X K oko ke de de de de e de de de de de de de de ke ke de ke kekek k f 
SAY 'PLEASE ENTER A MEMBER NAME' 
PULL NAME 
IF LENGTH (NAME) >8 THEN /* 如 果 名 称 字 长 大 于 8 */ 
DO 
NAME = SUBSTR(NAME,1,8) /* 截取 名 称 头 8 个 字符 */ 
SAY 'THE MEMBER NAME YOU ENTERED WAS TOO LONG." 
SAY NAME 'WILL BE USED." 
END 
ELSE NOP 
/* LENGTH () 和 SUBSTR () ,分 别 用 于 返回 字符 串 长 度 以 及 截取 子 字符 串 */ 


在 使 用 内 置 函数 的 时 候 ， 要 注意 以 下 几 点 。 


e 函数 即使 在 没有 参数 的 情况 下 ， 名 字 后 面 也 要 加 括号 ， 并 且 中 间 不 能 有 空格 。 
e 内 置 函数 不 受 NUMERIC 命令 影响 ， 默 认 情况 使 用 NUMERIC DIGITS 9 和 


NUMERIC FUZZ 0。 
e 如 果 参 数 设置 了 长 度 或 者 选取 了 字符 串 中 的 起 始 位 置 ， 必 须 是 一 个 有 效 的 正 
整数 。 


e 如 果 最 后 一 个 参数 是 可 选 的 , 那么 可 以 用 逗号 占 位 表示 这 个 参数 不 设置 或 者 取 默 
认 值 ， 如 DATATYPE(1,)， 和 DATATYPE(1) 效 果 相 同 。 
e 如 果 设 置 了 字符 串 占 位 符 , 只 能 是 长 度 为 1 的 字符 , 参见 格式 函数 LEFT 的 使 用 。 
e 如 果 函 数 调用 时 可 以 使 用 字符 串 的 首 字母 来 代 蔡 特定 字符 串 的 内 容 , 则 该 字母 的 
大 小 写 是 任意 的 。 
以 下 几 节 简要 介绍 各 类 函数 的 功能 , 详细 用 法 和 示例 请 参考 IBM 白皮书 z/OS TSO/E 
REXX Reference. 
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4.5.1 算术 函数 


算术 函数 主要 是 执行 对 数值 的 运算 ， 遵 循 NUMERIC 命令 的 设置 ， 注 意 可 选 参数 和 
默认 值 的 使 用 ， 见 表 4-1。 
表 4-1 算术 函数 汇总 


A A 功能 描述 m 例 
ABS 求 绝 对 值 ABS(-12.3) -> 12.3 
DIGITS 3& [|] NUMERIC DIGITS 的 设置 DIGITS() -> 8 
FORM 返回 NUMERIC FORM 的 设置 FORM() -> 'SCIENTIFIC' 
FUZZ 返回 NUMERIC FUZZ 的 设置 FUZZ( ->0 
MAX 求 最 大 值 ， 最 多 可 指定 20 个 参数 MAX(12,6,7,9) -> 12 
MIN MINI2619) 56 
RANDOM 产生 随机 数 ， 可 指定 范围 和 种 子 RANDOM(,.1983) -> 123 
SIGN 数值 符号 〈-1.0.1) SIGN( -0.307') -> -1 


TRUNC 返回 一 定 精度 的 实数 值 TRUNC(127.09782,3)->127.097 


上 述 函数 中 ，DIGITS、FORM、FUZZ 函数 的 功能 和 对 应 关键 字 指令 的 功能 相同 ， 
都 是 用 来 处 理 数 据 的 表示 方法 和 比较 精度 。 

RANDOM 函数 主要 用 于 由 系统 产生 一 个 随机 数 ， 但 是 这 个 随机 数 不 是 真正 意义 上 
的 随机 ， 而 是 通过 用 户 指 定 一 个 在 0 一 999999999 范围 的 正 整数 作为 随机 种 子 , 由 系统 通 
过 数值 计算 产生 随机 数 。 相 同 的 种 子 会 得 到 相同 的 随机 数 。 


RANDOM (MIN, MAX, SEED) 


用 户 还 可 以 指定 随机 数 的 范围 ， 通 过 MIN 和 MAX 来 设 定 。 若 未 指定 SEED 值 ， 则 
系统 会 动态 产生 一 个 值 作为 种 子 ， 通 常 每 次 产生 的 动态 值 是 不 相同 的 。 


4.5.2 ”比较 函数 


比较 函数 主要 是 比较 字符 串 和 数值 是 否 相同 或 判断 其 类 型 ， 注 意 变量 名 要 用 引号 ， 
防止 在 执行 函数 前 被 相应 变量 值 替换 ， 见 表 4-2。 
表 4-2 比较 函数 汇总 


功能 描述 m 例 
比较 两 个 字符 串 ， 相 同 返 回 0， 不 同 返回 第 一 | COMPARE(abc''ak) ->2 
个 不 同 字母 的 位 置 ,可 使 用 占 位 符 填补 较 短 的 | COMPARE('ab ''ab',' ) ->0 
字符 串 COMPARE('ab ,ab','x') -> 3 
返回 字符 串 的 类 型 (NUM R CHAR), 或 判断 | DATATYPE(12) -> 'NUM' 
是 否 是 特定 的 类 型 DATATYPE(12.3N) -> 1 
判断 符号 类 型 ，BAD 表示 无 效 ，VAR 表示 变 | SYMBOL(T) -> 'VAR' 

量 ，LIT 表示 常量 或 未 初始 化 SYMBOLQ) -> 'LIT' 


DATATYPE 


SYMBOL 
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COMPARE 函数 用 于 字符 串 的 比较 ， 具 体 用 法 如 下 。 


COMPARE (STRING1, STRING2, PAD) 


字符 串 需 要 使 用 引号 ， 第 三 个 参数 表示 占 位 符 。 占 位 符 是 指 ， 对 于 两 个 长 度 不 同 的 


字符 串 ， 


可 以 用 占 位 符 来 填充 长 度 较 短 的 字符 串 ， 使 之 与 长 度 较 长 的 字符 串 长 度 一 致 ， 


然后 再 进行 比较 。 占 位 符 从 字符 串 的 右 侧 开 始 填充 。 如 表格 中 COMPARE 函数 的 第 二 个 
例子 ， 用 空格 来 填充 第 二 个 字符 串 ， 这 样 两 个 字符 串 就 相同 了 。 

用 DATATYPE 判断 字符 串 类 型 时 ， 有 以 下 有 效 类 型 ， 判 断 时 可 只 用 代表 字母 〈 单 词 
中 的 大 写字 母 ) 表示 即 可 。 


4.5.3 


Alphanumeric: 只 含有 a—z. A—Zf 0~9 

Binary: 只 含有 0 或 1 

C: SBCS 和 DBCS 的 混合 字符 串 

Dbcs: 纯 DBCS 字符 串 ， 首 尾 是 SO 和 SI 

Lowercase: 只 含有 小 写字 母 a 一 z 

Mixed case: 含有 字符 a~z 和 A~2Z 的 混合 

Number: 是 有 效 的 REXX 数值 

Symbol: 只 含有 有 效 的 REXX 字符 ， 大 小 写 形式 不 限 

Uppercase: 只 含有 大 写字 母 A~Z 

Whole number: 在 当前 NUMERIC DIGITS 设置 下 的 有 效 的 REXX 整数 
heXadecimal: 十 六 进 制 数 ， 即 只 含有 a~f、A~F、0~9 和 空格 ， 或 是 空 字符 串 


转换 函数 


转换 函数 用 来 进行 数据 类 型 转换 ， 包 括 字 符 、 二 进 制 、 十 进 制 和 十 六 进 制 ， 精 度 在 
NUMERICDIGITS 设置 范围 内 ， 见 表 4-3. 


表 4-3 转换 函数 汇总 


m A 
将 二 进 制 转 换 成 十 六 进 制 ， 可 含 空格 或 空 串 B2X(1 1111 0000") -> '1F0' 
将 字符 转换 成 十 进 制 , 如 果 指 定 显示 精度 , 则 按 有 符号 | C2DCFFSI'X) -> 65409 
数字 处 理 C2D(FF81'X;2) -> -127 
将 字符 转换 成 十 六 进 制 C2X('72s') -> 'F7F2A2' 
将 十 进 制 转换 成 字符 ， 可 指定 长 度 D2C(129,2) -> ' a' 
将 十 进 制 转换 成 十 六 进 制 ， 可 指定 显示 长 度 D2X(129.4) -> '0081' 
将 十 六 进 制 转换 成 二 进 制 X2B('C3') -> '11000011' 
将 十 六 进 制 转换 成 字符 X2C(F7F2 A2') -> '72s' 


将 十 六 进 制 转换 成 十 进 制 X2D('c6 fü'X) — 240 
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4.5.4 格式 困 数 
格式 函数 根据 设置 字符 串 中 字符 和 空格 的 格式 ， 其 中 JUSTIFY 函数 是 TSO 提供 的 ， 
见 表 4-4。 
表 4-4 格式 函数 汇总 
函 数 功能 描述 示 A 


CENTER/ | 返回 指定 长 度 的 字符 串 ， 居 中 显示 ， 可 使 | CENTER(abc,8,'-')-> '--ABC---' 
CENTRE | 用 填充 符 ， 若 长 度 缩短 ， 则 从 两 侧 截 取 CENTRE('The blue sky',7) -> 'e blue ' 


将 字符 串 连 接 成 重复 指定 次 数 的 新 串 ， 次 | COPIES('abe',3)-> 'abcabcabc' 


COPIES | 数 为 正 整数 或 0 COPIES('abc',0)-> " 


FORMAT | 格式 化 数字 显示 FORMAT(3,4) —'3 
将 字符 串 中 的 单词 用 填充 符 均匀 隔 开 ， 如 


JUSTIFY | 果 指定 长 度 过 短 ， 就 从 右 侧 开始 截 短 ,并 | TSTEYCThe blue sky, 14) -> "The blue sky' 


且 去 掉 前 导 和 后 续 的 空格 JUSTIFY('The blue sky',9,) -> 'The++blue' 
LEFT 返回 指定 长 度 的 最 左 侧 的 子 串 LEFT( abc d’,8,'.')->'abe d..." 
RIGHT 返回 指定 长 度 的 最 右 侧 的 子 串 RIGHT(abc def,5) -> 'c def' 
RACE 用 指定 数目 的 分 隔 符 分 隔 单词 ， 并 去 掉 首 | SPACE( abc def ',2,'+") 

尾 的 空格 -> 'a++bc++def' 


XT FORMAT 的 使 用 ， 有 具体 介绍 如 下 。 


FORMAT (number,before,after,expp,expt) 


FORMAT 可 以 对 输入 的 数字 进行 一 定 的 格式 化 设置 , 具体 参数 有 before. after. expp 
和 expt。 在 这 4 个 参数 中 ， 可 以 分 别 填 入 相应 的 非 负 整数 ， 或 省 略 取 默 认 值 等 。 

其 中 , before 和 after 分 别 用 来 设置 整数 和 小 数 部 分 的 位 数 , 如 果 省 略 了 这 两 个 参数 ， 
则 使 用 原 数值 表示 。 如 果 before 的 值 没 有 原 数字 中 的 整数 部 分 位 数 多 ， 则 报错 ; 如果 比 
实际 的 位 数 多 ， 则 用 空格 来 填补 高 位 。 如 果 after 的 数值 和 实际 小 数 部 分 的 位 数 不 相同 ， 
则 或 者 舍 入 ， 或 者 用 0 来 填充 低位 ， 设 置 after 为 0 则 会 去 掉 小 数 部 分 。 

FORMAT('1.73',4,0) -» ' 2' 

FORMAT('1.73',4,3) -» ' 1.730' 

FORMAT('-.76',4,1) -> ' -0.8' 


expp 和 expt 参数 用 来 设置 数值 的 指数 部 分 。expp 设置 指数 部 分 的 位 数 , 如 果 设 置 为 
0， 则 不 使 用 指数 表示 ， 而 是 简单 的 用 小 数 点 后 的 数字 填充 ， 如 果 expp 数值 不 够 大 ， 则 
报错 ;如 果 expp 不 是 0 而 实际 的 数值 中 指数 部 分 是 0， 则 在 结果 中 ， 会 有 (expp+2) 个 
空格 放 在 指数 位 置 。expt 指定 什么 时 候 使 用 指数 表示 ， 规 则 是 在 整数 或 小 数 部 分 的 位 数 
分 别 超过 了 expt 的 一 倍 和 两 倍 ， 那 么 就 使 用 指数 表示 。 如 果 expt 为 0， 则 在 有 小 数 部 分 
的 时 候 就 使 用 指数 表示 ; 如 果 expp 为 0， 则 expt 自动 设置 为 0。 


FORMAT('12345.73',,,2,2) -> '1.234573E+04' 


FORMAT('12345.73',,3,,0) -> '1.235E+4' 
FORMAT('12345.73',,,3,6) -> '12345.73' 
FORMAT('1234567e5',,3,0) -> '123456700000.000' 


45.5 ”字符 串 操 作 孙 数 


字符 串 操作 函数 用 来 设置 字符 串 中 的 字符 和 空格 的 显示 方式 ， 其 中 FIND 和 INDEX 
是 TSO 提供 的 函数 ， 见 表 4-5。 
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表 4-5 字符 串 操作 函数 汇总 


A A 功能 描述 示 9 
从 指定 位 置 开 始 删除 一 定数 目的 DELWORD(Nowv is the time' , 2,2) 
DELWORD 格 分 开 的 单词 ， 返 回 剩余 字符 串 — Now time' 
mE 返回 指定 子 串 的 首 个 单词 在 原 字符 串 | FIND(now is the time'/is the time") 
中 的 起 始 位 置 ->2 
INDEX 在 第 一 个 字符 串 中 找 第 二 个 字符 串 的 | INDEX(abcabe'/be',3)- 5 
起 始 位 置 ， 可 从 指定 位 置 开 始 查 找 INDEX('abcabc','bc',6)-> 0 
将 第 一 个 字符 趾 插入 到 第 二 个 字符 串 | TNSERTC vabedef,3) -> abe def" 
— 中 ， 可 指定 插入 位 置 ， 插 入 的 字符 数 | eese seb 6+) -> 
量 和 填充 字符 ， 默 认 从 开头 插入 ， 用 | ， i 
空格 填充 abc+t+23 十 + 十 十 ' 
返回 指定 子 串 在 原 字符 串 中 最 后 一 次 v C 
LASTPOS mm LASTPOS( '/'abc def ghi") -> 8 
LENGTH 返回 字符 串 的 长 度 LENGTH(abcdefgh') -> 8 
用 指定 字符 串 覆 盖 原 字符 串 中 特定 位 | OVERLAY( ''abedef ',3) 
CERAN 置 的 字符 -> ab def" 
POS 返回 子 串 在 原 字 符 串 中 的 位 置 POS(day'/'Saturday") -> 6 
REVERSE 将 字符 串 首尾 翻转 REVERSE(CABc.) -> 'cBA' 
xao As Mop 、 | STRIP( ab c ''L') -> 'ab c ' 
STRIP hs : : Pid iia B 代 表 | STRIPC12.70..0) 127 
' ' . STRIP(12.70*,.1) -> ' 2.70 
返回 从 指定 位 置 开 始 的 指定 长 度 的 子 "um 
SUBSTR 串 ， 可 指定 填充 符 SUBSTR('abc',2,6,'.') -> 'bc.... 
返回 从 指定 位 置 的 开始 的 指定 长 度 的 | SUBWORD(Now is the time', 2,2) 
SOBNWORD 子 串 ， 以 单词 为 单位 —'is the 
将 一 种 字符 翻译 成 对 应 规则 的 字符 ， | TRANSLATE(abcdef '/12''abed''.") 
默认 是 大 写 转换 12. ef 
VERIFY 判断 字符 串 是 否 只 包含 指定 的 字符 ， | VERIFY(123''1234567890') -> 0 
是 返回 0， 或 返回 不 符合 的 字符 位 置 | VERIFY(C1Z3'"1234567890)-> 2 
WORD 返回 字符 串 中 指定 位 置 的 单词 WORD(T am a boy',3)— 'a' 
WORDINDEX 返回 第 ”个 单词 的 首 字母 的 位 置 WORD(T am a boy',3)-> '6' 
WORDLENGTH 返回 第 nn 个 单词 的 长 度 WORD(' am a boy 3)» '1' 
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HBOO* m 例 
返回 指定 单词 是 原 字 符 串 中 的 第 几 个 | WORDPOS('be','To be or not to be',3) 
NORDEUS 单词 ， 可 指定 起 始 搜索 位 置 —6 
WORDS 返回 字符 串 中 用 空格 分 隔 的 单词 数 WORDS( I am a boy')-> 4 


的 转 


换 成 


TRANSLATE 函数 是 用 于 将 原 字符 串 中 的 部 分 字符 蔡 换 成 新 的 字符 ， 通 过 用 户 定义 
换 规 则 来 完成 字符 的 变换 ， 使 用 规则 如 下 。 


TRANSLATE(STRING, OUT, IN, PAD) 


Hop, STRING 为 原 字符 串 ，IN 指 原 字符 串 中 需要 被 蔡 换 的 字符 ，OUT 指 对 应 要 替 
的 新 字符 ， 这 里 的 字符 是 一 一 对 应 的 ， 如 果 在 OUT 中 未 指定 对 应 的 新 字符 ,那么 就 


用 PAD 所 定义 的 字符 来 填充 ， 默 认 用 空格 填充 。 


TRANSLATE('abbc','&','b') -> 'a&&c' /* 用 来 替换 字符 b */ 
TRANSLATE ('abcdef','12','abcd','.') -> '12..ef' /* 用 . .来 替换 cd */ 
TRANSLATE('APQRV',,'PR') -> 'AQV' /* 用 空格 来 填充 替换 字符 */ 


4.5.6 bp LER 


本 节 介绍 其 他 的 内 置 函数 ， 其 中 EXTERNALS 和 USERID 是 TSO 提供 的 函数 ， 见 


表 4-6。 
表 4-6 其 他 内 置 函数 汇总 
函数 功能 描述 T H 

ADDRESS 返回 当前 命令 提交 执行 的 环境 ADDRESSO -> ' TSO' 
ARG 返回 传递 给 子 例 程 的 参数 信息 ARG(1) ; ARG(2) 

返回 两 个 字符 串 按 位 与 运算 的 结果 ， 并 i RS pee 
BITAND 与 较 长 的 输入 字符 串 长 度 相同 BITAND(73'x,27 'x) —23'x 
BITOR 返回 两 个 字符 串 按 位 或 运算 的 结果 BITOR(15'x,24'x) ->'35x 

返回 两 个 字符 串 按 位 异 或 的 结果 ， 届 辑 VOTE TN 
BITXOR 运算 可 使 用 占 位 符 BITXOR('12'x,22'x) —'30'x 
CONDITION 返回 当前 捕捉 到 的 特殊 情况 的 信息 CONDITION('C') -> 'FAILURE' 


DATE 按照 指定 格式 返回 当前 系统 日 期 


DATEQ -> 2 Oct 2011" 


ERRORTEXT | 0 一 99 之 间 ， 该 错误 编号 是 系统 指定 的 ， 


根据 出 错 编号 返回 错误 信息 的 内 容 ， 在 


ERRORTEXT(16) -> 'Label not found" 
用 于 调试 程序 


EXTERNALS 返回 终端 输入 缓冲 区 的 字符 数 


EXTERNALS() — 0 


LINESIZE 返回 终端 的 行 宽 减 1 


LINESIZE() ->79 


QUEUED 返回 外 部 数据 队列 中 剩余 的 行 数 


QUEUEDO ->5 


SOURCELINE | 返回 程序 的 行 数 或 某 一 行 的 内 容 
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函数 功能 描述 m A 


SOURCELINEQ -> 10 
SOURCELINE(1) —'/* REXX*/ 


TIME 返回 指定 格式 的 系统 时 间 TIME() -> '16:54:22 
TRACE 返回 跟踪 设置 或 选择 跟踪 状态 TRACEO > 


TRACE('O') -> '?R' 
返回 TSO 下 的 用 户 ID， 非 TSO 下 返回 


SERI 特定 的 ID， 作 业 步 或 作业 名 USEBDDOS TEE 
firstName-"Jane" 
VALUE('firstName") -> 'Jane' 
VALUE 返回 变量 值 或 给 变量 赋予 新 值 K-3; fred='K'; 
VALUE(fred,5) -> '3' 
VALUE(K) -> 5 
返回 包含 指定 首尾 元 素 的 一 位 JF anen >! ' 


系统 选择 不 同 编码 方式 XRANGEY(,'04'x) -> '0001020304'x 


下 面 重 点 介绍 一 些 函 数 的 用 法 。 


1. ARG 
ARG 函数 在 无 参数 的 情况 下 ,返回 传递 的 参数 的 数量 ; 如 果 只 是 指定 了 一 个 具体 的 


数字 ， 则 返回 对 应 位 置 的 参数 ， 如 果 指 定 了 数字 和 一 个 选项 参数 ， 则 检测 对 应 位 置 的 参 
数 是 否 符合 一 定 规则 , 符合 返回 1, 不 符合 返回 0, 可 选 的 参数 如 下 (只 需 大 写字 母 即 可 )。 


en 


e Exists: 判断 对 应 位 置 的 参数 是 否 存在 。 

e Omitted: 判断 对 应 位 置 的 参数 是 否 未 指定 。 
/*REXX 中 调用 语句 : "Call name 'a',,'b';"*/ 
ARG() -> 3 

ARG(1,'E') -> 1 

ARG(3,'0') -> 0 


2. CONDITION 
CONDITION 函数 可 得 到 捕捉 事件 的 名 字 ， 描 述 信 息 ， 执 行 捕捉 的 命令 或 事件 的 状 
通过 可 选 参数 来 标识 需要 返回 的 信息 CC, D, I SO. 


CONDITION () -» 'CALL' /* 默认 情况 , 同 工 */ 

CONDITION('C') -> 'FAILURE"' /* Condition name -- 名 称 */ 
CONDITION('I') => 'CALL' /* Instruction -- CALL EÈ SIGNAL */ 
CONDITION('D') -> 'FailureTest' /* Description -- 描述 信息 */ 


CONDITION('S') -> 'OFF' /*Status -- 状态 ,ON OFF DELAY*/ 


如 在 程序 中 设置 了 CALL ON ERROR， 则 将 会 对 ERROR 事件 进行 跟踪 ， 并 且 捕 捉 


到 一 条 出 错 语句 ， 那 么 此 时 使 用 CONDITION 函数 的 结果 如 下 。 
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CONDITION () x ' SIGNAL' 
CONDITION('C') ->  'ERROR' 
CONDITION('I') ->  'CALL' 
CONDITION('D') ->  'PULL' /* 出 错 语句 */ 
CONDITION('S') ->  'ON' 


如 果 没 有 设置 捕捉 事件 , 则 CONDITION 函数 返回 空 值 。 如 果 有 子 例 程 中 使 用 CALL 
ON 等 指令 设置 事件 捕捉 ， 则 CONDITION 函数 是 针对 子 例 程 中 的 设置 进行 记录 的 ， 在 
子 例 程 返回 后 ，CONDITION 将 恢复 到 CALL 命令 执行 之 前 的 状态 。 


3. DATE 
DATE 函数 在 默认 情况 下 返回 的 日 期 格式 是 dd mm yyyy， 没 有 前 导 的 0 或 空格 。 此 
外 ， 可 以 进行 日 期 格式 的 转换 ， 输 入 一 定格 式 的 日 期 ， 并 且 不 能 有 前 导 的 0 或 空格 ， 还 
要 注意 大 小 写 形 式 ， 然 后 以 一 定格 式 输出 。 可 选 的 格式 如 下 。 
e Base: 返回 从 0001 年 1 月 1 日 到 当前 日 期 之 间 的 天 数 ， 格 式 为 dddddd。 可 通过 
除 7 取 余 数 得 到 当前 日 期 是 一 周 的 第 几 天 。 
Century: 返回 从 0001 年 1 月 1 日 到 当前 日 期 之 间 的 天 数 , 以 100 天 为 单位 计算 。 
Days: 返回 当前 日 期 是 当前 年 份 中 的 第 几 天 ， 包 括 当 天 。 
European: 返回 日 期 格式 为 dd/mm/yy。 
Julian: 返回 日 期 格式 为 yyddd。 
Month: 返回 当前 月 份 的 完整 英文 表示 ， 首 字母 大 写 ， 其 余 字母 小 写 。 
Normal: 返回 日 期 格式 为 dd mon yyyy， 月 份 为 对 应 单词 的 缩写 形式 。 
Ordered: 返回 日 期 格式 为 yy/mmydd， 便 于 排序 。 
Standard: 返回 日 期 格式 为 yyyymmdd， 便 于 排序 。 
Usa: 返回 日 期 格式 为 mm/dd/yy. 
Weekday: 返回 当前 日 期 在 一 周 中 的 对 应 的 英文 单词 。 
假设 当前 日 期 是 2001 年 11 月 20 号 ， 对 应 示例 如 下 。 


DATE(,'20010709','S') -> "9 July 2001' 
DATE('B','25 Sep 2001') -> "730752" 
DATE('C') -> '690" 

DATE ('E') -> '20/11/01"' 

DATE('J') -» '01324' 

DATE('M') -» 'November' 
DATE('N','1438',' 10) -> '8 Dec 2003? 
DATE('O') -> '01/11/20" 

DATE('S') -> "20011120" 

DATE ('U','25 May 2001') -> '05/25/01' 
DATE ('W 


') -> 'Tuesday' 
4. EXTERNALS 


EXTERNALS 函数 返回 当前 输入 缓冲 区 中 的 字符 数量 ， 但 是 在 TSO/E 环境 下 ， 系 统 
中 没有 对 应 的 缓冲 区 ， 所 以 返回 值 总 是 为 0。 


5: 


LINESIZE 
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LINESIZE 函数 返回 当前 程序 中 一 行内 容纳 的 字符 数量 。 如 果 REXX 程序 在 TSO/E 
后 台 运 行 ， 即 JCL EXEC PGM=IKJEFT01， 该 函数 总 是 返回 131; 如 果 在 前 台 运 行 ， 该 
函数 返回 当前 终端 的 宽度 。 在 非 TSO/E 环境 下 ，LINESIZE 函数 返回 OUTDD 文件 〈 默 
认 是 SYSTSPRT) 中 逻辑 记录 的 长 度 。 


6. 


TIME 


TIME 函数 返回 系统 时 间 可 以 有 如 下 格式 形式 ， 并 且 返 回 的 时 间 除 0 外 都 无 前 导 0 
或 空格 。 
Civil: 返回 时 间 格 式 为 hh:mmxx， 其 中 xx 为 am 或 pm。 
Elapsed: 返回 时 间 格 式 为 sssssssss.uuuuuu, 返回 从 设置 的 起 始 时 间 开 始 经 过 的 时 间 。 
Hours: 返回 当前 时 间 是 一 天 中 的 第 几 个 小 时 ， 格 式 是 hh 或 h。 
Long: 返回 时 间 格 式 为 hh:mm:ssuuuuuu，uuuuunu 为 毫秒 。 
Minutes: 返回 当前 时 间 是 一 天 中 的 第 几 分 钟 ， 最 多 四 个 字母 ， 格 式 为 mmmm. 


Normal: 返回 默认 格式 的 时 间 : hh:mm:ss。 
Reset: 返回 时 间 格 式 为 sssssssss.uuuuuu， 返 
时 间 ， 并 重 置 Elapsed 的 开始 时 间 。 

Seconds: 返回 当前 时 间 是 一 天 中 的 第 几 秒 ， 


假设 当前 时 间 是 2:50 a.m.， 对 应 示例 如 下 。 


TIME () =>: 102250322" 
TIME('C') -> "2:50am" 
TIME('H') -» '02' 

TIME('L') -> '02:50:22.123456"' 


回 从 Elapsed 设置 的 时 间 开 始 经 过 的 


最 多 五 位 表示 ， 格 式 为 ssssss。 


TIME('M') -> '0170' /* 50 * 60*2 */ 
TIME('N') -> '02:50:22' 
TIME('S') -> '01042' J[* 22 + 60*(50t60*2) */ 


TIME 函数 还 可 以 计算 从 某 一 时 刻 开始 经 过 的 时 间 , 方 法 是 :用 TIME(E") 或 TIME(R') 
设置 起 始 时 间 ， 此 时 返回 0, 并 且 此 后 再 调用 TIME(E') 或 TIME(R') 函 数 将 返回 从 上 一 次 
设置 的 起 始 时 间 开 始 经 过 的 时 间 ， 以 秒 为 单位 ， 例 如 : 

TIME('E') -> 0 /* 设置 初始 时 间 */ 

/* 停顿 一 秒 */ 

TIME('E') -> 1.002345 

/* 停 顿 一 秒 */ 

TIME('R') -> 2.004690 


4.6 TSOI/E 外 部 函数 


除 前 面 介绍 的 内 置 函 数 之 外 ，TSO/E 还 提供 了 许多 具有 特定 功能 的 外 部 函数 ， 有 些 
函数 的 功能 和 CLIST 中 的 控制 变量 相同 。 
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可 用 的 TSO/E 外 部 函数 有 GETMSG、LISTDSI、MSG、MVSVAR、OUTTRAP、 
PROMPT、SELANG、STORAGE、SYSCPUS、SYSDSN 和 SYSVAR。 其 中 ，MVSVAR、 
SETLANG, STORAGE 和 SYSCPUS 函数 可 以 运行 在 任意 地 址 空间 , 即 TSO/E 和 非 TSOAE 
环境 , 其 余 函 数 只 能 运行 在 TSO/E 环境 下 的 REXX 程序 中 。 下 面 将 介绍 这 几 个 外 部 函数 
的 使 用 方法 和 功能 特性 。 


4.6.1 GETMSG HZ 


使 用 GETMSG 函数 和 TSO/E 中 的 CONSOLE 以 及 CONSPROF 命令 可 以 在 REXX 
程序 中 对 MVS 进行 操作 。 通过 CONSOLE 命令 启动 一 个 外 部 的 MVS 控制 台 会 话 ， 执 行 
一 些 MVS 命令 ,并 且 用 CONSPROF 命令 来 控制 那些 路 由 到 用 户 控制 台 的 消息 不 被 显示 ， 
之 后 可 以 使 用 GETMSG 函数 来 得 到 这 些 不 被 显示 的 消息 ,用 户 还 能 通过 条 件 控制 来 搜索 
符合 一 定 条 件 的 消息 和 类 型 。 相 关 的 消息 内 容 和 消息 信息 存储 在 变量 中 ， 这 些 变量 可 以 
被 REXX 程序 使 用 。 

调用 GETMSG 函数 ， 得 到 一 个 返回 值 ， 并 且 通 过 指定 的 变量 存储 消息 的 内 容 。 函 数 
每 次 返回 一 条 消息 ， 消 息 本 身 可 以 是 多 行 的 ， 每 一 行 的 消息 顺序 地 存储 在 变量 中 。 

函数 的 返回 码 如 表 4-7 所 示 。 

表 4-7  GETMSG 函数 返回 码 
返回 码 Ho 述 
0 GETMSG 函数 执行 成 功 ， 得 到 了 系统 消息 
GETMSG 函数 执行 成 功 ， 但 是 没有 得 到 系统 消息 ， 原 因 可 能 是 : 
。 没有 消息 需要 读 取 
。 消息 和 函数 中 设置 的 搜索 条 件 不 符 
e 在 函数 中 设置 了 读 取 时 间 ， 在 时 间 界 限 内 没有 读 取 到 消息 

8 GETMSG 函数 执行 成 功 ， 但 是 在 函数 执行 时 按 了 中 断 键 ， 导 致 未 读 取 消息 

12 ”| GETMSG 函数 执行 不 成 功 ， 未 启动 控制 台 会 话 ， 需 要 先 用 CONSOLE 命令 

16 “| GETMSG 函数 执行 不 成 功 ， 在 其 执行 期 间 ， 控 制 台 会 话 被 终止 


函数 的 调用 形式 及 各 变量 的 功能 如 下 。 
GETMSG(msgstem, msgtype, cart, mask, time) 


msgtem 设置 GETMSG 函数 放置 返回 消息 的 变量 的 词 干 ， 可 以 是 一 个 变量 序列 或 者 
是 一 个 复合 变量 ， 消 息 会 从 前 到 后 依次 放 入 对 应 变量 中 。 如 有 3 行 消息 返回 ,假设 指定 
复合 变量 “msg.”， 接 收 ， 那 么 3 行 消息 将 依次 放 入 “msg.1”“msg.2” 和 “msg.3” 中 ， 
“msg.0” 中 存放 变量 的 总 数 ; 如 果 指 定 变 量 序列 msg 接收 ,那么 3 行 消息 将 依次 放 入 msg. 
msg2 和 msg3 中 ，msg0 中 存放 变量 的 总 数 。 

msgtype 设置 希望 提取 的 消息 类 型 ， 可 以 是 以 下 任意 一 种 。 

e SOL (solicited): 返回 请 求 消息 ， 即 MVS 或 子 系统 对 用 户 命令 的 回应 。 

e UNSOL: 返回 非 请 求 消息 ， 可 以 是 其 他 用 户 发 送 的 消息 或 广播 消息 。 
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e EITHER: 返回 以 上 两 种 类 型 的 消息 ， 是 默认 值 。 

cart 和 mark 这 两 个 参数 用 来 筛选 返回 消息 。 其 中 cart 参数 设置 发 出 CONSOLE 命 
令 的 应 用 程序 的 ID 号 , 通过 与 mask 的 值 做 与 运算 ， 得 到 要 筛选 的 条 件 ，GETMSG 函数 
通过 这 个 值 在 路 由 到 用 户 控制 台 的 消息 队列 中 搜索 符合 条 件 的 结果 并 返回 。 只 有 在 
msgtye 设置 为 SOL 时 cart 和 mark 参数 的 设置 才 有 效 。cart 和 mark 可 以 是 1 一 8 位 的 字 
符 或 1 一 16 位 的 十 六 进 制 字符 串 ， 如 'C1D7D7C1F4F9F4F1X。 如 果 位 数 不 够 ， 将 在 高 位 
补 0， 位 数 超过 将 截断 低位 字符 ， 通 常 MASK 的 前 4 位 是 FFFFFFFF， 保 证 程序 ID 值 
不 变 。 

time 设置 GETMSG 函数 等 待 消息 返回 的 时 间 , 如 果 在 设置 的 时 间 段 内 消息 没有 路 
由 到 用 户 的 控制 台 ， 函 数 将 返回 ， 默 认 情 况 下 time 的 值 为 0。 

下 面 列举 了 一 些 常见 的 GETMSG 函数 。 

MSG = GETMSG('CONSMSG.','SOL') 

MCODE = GETMSG('DISPMSG.','5SOL',,,120) 


MSGRETT GETMSG('DMSG', 'SOL','C1D7D7D3F2F9F6F8'X, , 60) 
CONMESS GETMSG('MSGC.','SOL','APPL ','FFFFFFFF00000000'X, 30) 


4.6.2 LISTDSI FRA 


LISTDSI (List Dataset Information) 函数 可 以 得 到 数据 集 的 详细 属性 信息 ， 这 些 信 息 
存储 在 指定 的 变量 中 ， 可 以 用 在 指令 中 ， 通 过 返回 码 确定 函数 是 否 执 行 成 功 。 可 以 直接 
用 数据 集 名 称 或 存储 该 名 称 的 变量 来 传递 请 求 ， 但 是 如 果 在 其 他 卷 上 有 同名 的 数据 集 或 
这 个 数据 集 已 经 被 打开 ， 则 不 能 使 用 LISTDSI 函数 。 

LISTDSI 函数 支持 访问 DASD 上 的 数据 集 和 使 用 绝对 世代 名 称 的 GDG 数据 集 ， 不 
支持 磁带 和 HFS 数据 集 。 通 常 ， 该 函数 用 来 确定 数据 集 的 特征 信息 或 者 用 来 创建 一 个 具 
有 相同 属性 的 新 的 数据 集 。 如 果 访 问 的 数据 集 是 VSAM 类 型 ， 则 只 返回 卷 ID， 设 备 号 
和 数据 集 的 组 织 形式 信息 ; 如 果 是 访问 存储 在 多 个 卷 上 的 数据 集 ， 函 数 只 返回 第 一 个 卷 
的 信息 ;如 果 访 问 的 是 一 个 文件 ， 并 且 含有 多 个 数据 集 ， 函 数 只 返回 第 一 个 数据 集 的 


信息 。 
函数 的 返回 码 如 表 4-8 所 示 。 
表 4-8 LISTDSI 函数 返回 码 
返回 码 dü 述 


o | 函数 执行 成 功 ， 得 到 数据 集 信息 
4 ”| 数据 集中 有 些 信息 〈 通 常 是 目录 信息 ) 未 获得 ， 其 他 返回 信息 可 认为 是 有 效 的 


16 函数 失败 ， 未 得 到 任何 属性 信息 


函数 的 调用 形式 和 参数 信息 如 下 。 


LISTDSI (dataset-name, location, (file-name), directory, recall,smsinfo) 
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dataset-name: 设置 要 查询 的 数据 集 名 称 。 

location: 设置 要 查询 的 数据 集 的 位 置 ， 可 以 指定 VOLUME 和 PREALLOC， 如 
果 未 指定 这 两 个 参数 就 在 系统 目录 中 搜索 。 

filename: 如 果 想 指定 文件 名 ， 则 需要 加 FILE 关键 字 ， 然 后 指定 文件 的 名 称 。 
directory: 设置 是 否 要 返回 PDS 数据 集 的 目录 信息 ，DIRECTORY 或 
NODIRECTORY， 默 认 是 不 返回 ， 这 样 可 以 提高 执行 效率 。 

recall: 设置 是 否 要 查询 被 DFHSM 转移 的 数据 集 ，RECALL 或 NORECALL， 如 
果 指 定 RECALL， 那 么 会 搜索 所 有 转移 的 数据 集 ， 如 果 指 定 NORECALL， 而 该 
数据 集 又 被 转移 了 ， 则 会 报错 。 如 果 未 指定 RECALL 或 NORECALL， 则 系统 只 
搜索 转移 到 DASD 上 的 数据 集 。 

smsinfo: 设置 是 否 要 返回 SMS 相关 信息 ， 包 括 数据 集 类 型 、 使 用 空间 、 数 据 类 
名 称 、 存 储 类 名 称 和 管理 类 名 称 。 使 用 SMSINFO 或 NOSMSINFO， 只 使 用 与 被 


SMS 管理 的 数据 集 。 
函数 返回 后 ， 将 数据 集 的 信息 存储 在 对 应 变量 中 ， 表 4-9 列举 几 项 常用 的 变量 。 
表 4-9 LISTDSI 函数 的 返回 信息 
T E 存储 内 容 

SYSDSNAME | 数据 集 的 名 称 

SYSVOLUME | 盘 卷 ID 号 

SYSUNIT 盘 卷 所 在 的 设备 号 

SYSDSORG 数据 集 的 组 织 形式 : PS, PSU, DA, DAU, IS, ISU, PO, POU, VS 

SYSRECFM 记录 的 格式 : U, F, V, T, B, S, A, M, ??? (Unknown) 

SYSLRECL 逻辑 记录 的 长 度 

SYSBLKSIZE | 数据 集 的 块 大 小 

SYSUSED 数据 集 分 配 时 的 空间 单位 ， 不 适用 于 PDSE 

SYSKEYLEN | VSAM 数据 集中 键 值 的 长 度 

SYSCREATE 数据 集 的 创建 时 间 ， 格 式 为 year/day， 如 2011/135 
数据 集 的 类 型 信息 ， 为 SMS DSNTYPE 中 的 信息 ， 如 果 未 读 取 到 ， 返 回 的 信息 : 

EYSDSSMS SEQ. PDS, PDSE 
如 果 是 PDSE 数据 集 ， 那 么 将 返回 LIBRARY. PROGRAM LIBRARY. DATA - 
LIBRARY 

SYSRACFA 返回 数据 集 的 PROFILE 信息 : NONE、GENERIC、DISCRETE 

SYSREASON  |LISTDSI 的 返回 码 


下 面 给 出 了 一 些 LISTDSI 的 示例 。 


X = LISTDSI('MYREXX.EXEC') 


*X 


/* REXX */ 


= LISTDSI("'SYS1.PROJ.NEW'") 


X — LISTDSI (WORK.EXEC) 


95439 函数 和 子 例 程 


SAY 'FUNCTION CODE FROM LISTDSI IS: ' X /[* 输出 0 */ 

SAY 'THE DATA SET NAME IS: ' SYSDSNAME /* 输出 USERID.WORK.EXEC */ 
SAY 'THE DEVICE UNIT ON WHICH THE VOLUME RESIDES IS:' SYSUNIT 

/* 输出 3390 */ 


SAY 'THE RECORD FORMAT IS: ' SYSRECFM /* 输出 FB */ 
SAY 'THE LOGICAL RECORD LENGTH IS: ' SYSLRECL /* 输出 80 */ 
SAY 'THE BLOCK SIZE IS: ' SYSBLKSIZE /* 输出 800 */ 


SAY 'TYPE OF RACF PROTECTION IS: 'SYSRACFA /* 输出 GENERIC */ 


4.6.3 MSG HI 


MSG 函数 返回 TSO/E 消息 显示 的 状态 一 一 ON 或 OFF， 即 是 否 显示 TSO/E 消息 。 
指定 ON 或 OFF 参数 ,设置 当前 TSO/E 的 消息 是 否 显示 , 同时 函数 返回 之 前 的 消息 状态 。 

MSGSTAT = MSG() -> 'OFF' /* 返回 系统 当前 设置 为 “oFF” */ 

STAT = MSG('OFF') -> 'ON' /* 返回 之 前 设置 “ON”, 并 关闭 信息 显示 */ 

如 果 在 REXX 程序 中 指定 MSG(OFF)， 则 在 程序 或 其 子 函 数 运行 期 间 ， 消 息 是 不 显 
示 的 ， 直 到 使 用 MSG(ON) 命 令 ， 或 原 程序 执行 结束 。 如 果 从 原 程序 中 用 EXEC 调用 其 
他 的 CLIST 程序 ， 对 消息 显示 的 设置 不 会 传递 到 CLIST 程序 中 , 默认 情况 下 ,消息 会 在 
新 程序 中 显示 。MSG 函数 和 CLIST 中 的 CONTROL MSG 和 CONSTROL NOMSG 函数 
作用 相同 。 下 面 是 一 个 实例 ， 用 于 确保 在 使 用 TRANSMIT 命令 后 输出 消息 内 容 。 


IF MSG() = 'OFF' THEN, 

"TRANSMIT node.userid DA (myrexx.exec)" 
ELSE 

DO 


x = MSG("OFF") 

"TRANSMIT node.userid DA (myrexx.exec)" 
a = MSG (x) /* 输出 消息 内 容 */ 

END 


4.6.4 MVSVAR FRA 


MVSVAR 函数 返回 MVS, TSO/E 和 当前 会 话 的 信息 ， 如 MVS 系统 的 代号 名 称 ， 
TSO/E 会 话 的 安全 级 别 等 ,通过 给 函数 传递 参数 , 设置 要 返回 的 信息 内 容 , 参数 如 表 4-10 


表 4-10 MVSVAR 函数 的 参数 信息 


参数 值 描述 


SYSAPPCLU | APPC/MVS 的 逻辑 单元 (LU) 的 名 字 
SYSDFP | MVS/DEP. (Data Facility Produc) 的 级 别 


SYSMVS z/OS 系统 的 组 件 BCP (Base Control Program) 的 级 别 
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续 表 
参数 值 dü 述 
— Bex 程序 运行 的 系统 的 名 称 ,是 SYS1.PARMLIB 中 IEASYSxx 成 员 的 SYSNAME 
参数 的 值 
SYSSECLAB | TSO/E 会 话 的 安全 级 别 
SYSSMFID 正在 使 用 SMF (System Management Facility) 管理 的 系统 ID 
SYSSMS 判断 DFSMS/MVS 是 否 可 用 的 标识 : UNAVAILABLE, INACTIVE, ACTIVE 
SYSCLONE 标识 MVS 系统 名 称 的 参数 
SYSPLEX MVS Sysplex 的 名 称 ， 在 COUPLExx 或 LOADxx 中 
SYMDEF MVS 系统 的 系统 参数 
/*REXX*/ 
IF MVSVAR('SYSDFP') >= '00.03.03.00' THEN /* 判断 是 否 可 以 使 用 SYSSMS 参数 */ 
SAY MVSVAR('SYSSMS') /* 可 能 输出 为 ACTIVE */ 
EXIT 0 


通常 ，MVSVAR 函数 用 于 获取 MVS 系统 信息 ， 以 便 在 使 用 某 些 功能 之 前 判断 其 可 
用 性 等 , 防止 错误 地 使 用 不 合乎 规范 的 程序 等 .具体 的 参数 信息 请 参见 IBM 白皮书 TSO/E 
REXX Reference. 


4.6.5 OUTTRAP HZ 


OUTTRAP 函数 将 命令 的 输出 放 在 一 组 变量 中 ，REXX 程序 可 以 处 理 这 些 变量 中 的 
输出 内 容 ， 调 用 格式 如 下 。 


OUTTRAP ( (off) , varname, max, concat) 


e off: 关闭 错误 跟踪 。 

e varname: 可 以 是 复合 变量 的 词 干 或 者 数字 变量 的 前 级 ， 复 合 变 量 可 以 用 索引 来 
读 取 变量 ， 但 是 变量 序列 则 不 能 用 索引 来 循环 读 取 。 

e max: 设置 捕捉 结果 的 最 大 行 数 ， 可 以 设置 一 个 具体 的 数值 、* 或 者 空格 。 如 果 指 
定 * 或 者 空 ， 则 所 有 的 输出 都 将 被 捕捉 。 默 认 情况 下 ， 最 多 可 以 捕捉 999 999 999 
行 ， 超 过 的 部 分 将 被 舍弃 。 

e concat: 设置 输出 的 方式 ， 可 以 是 CONCAT 或 NOCONCAT。 

» CONCAT 设置 命令 被 顺序 地 捕捉 直到 设 定 的 最 大 值 , 如 一 条 命令 有 3 行 输出 ， 
那么 它们 分 别 存在 以 1、2、3 结尾 的 变量 中 ， 下 一 条 命令 产生 两 条 输出 ,存储 
在 以 4、5 为 结尾 的 变量 中 ， 是 默认 设置 。 

» NOCONCAT 设置 每 次 命令 的 输出 都 从 变量 1 开始 存储 , 即 如 果 第 一 条 命令 有 
3 行 输出 ， 存 在 变量 1、2、3 中 ， 第 二 条 命令 有 两 条 输出 ， 那 么 将 覆盖 第 一 条 
命令 的 输出 ， 从 变量 1 开始 存储 。 


x = OUTTRAP("ABC",4,"CONCAT") 
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/* 假设 命令 有 3 行 输出 ， 则 ABC 变量 的 结果 如 下 */ 
ABCO --> 3 

RBC1 --» 第 一 行 输出 的 内 容 

ABC2 --» 第 二 行 输出 的 内 容 

ABC3 --» 第 三 行 输出 的 内 容 


/* 如 果 此 时 又 有 一 条 命令 有 两 行 输出 ， 那 么 第 二 行 输出 将 不 被 跟踪 */ 

ABCA --» 第 二 条 命令 的 第 一 行 输出 /* ABCO 到 ABC3 的 值 不 变 */ 

REXX 程序 可 以 通过 变量 来 显示 和 处 理 TSO/E 命令 的 输出 结果 , 其 中 TSO/E 命令 的 
错误 信息 会 被 捕捉 ， 但 是 其 他 类 型 的 错误 信息 会 直接 被 发 送 到 终端 。 捕 捉 从 发 起 该 命令 
的 语句 开始 ， 包 括 它 调用 的 子 句 ， 直 到 原 程序 结束 或 者 是 捕捉 程序 被 关闭 。 

OUTTRAP 也 可 以 捕捉 在 REXX 程序 中 发 出 的 命令 的 输出 , 但 是 写 在 REXX 程序 中 
的 命令 不 能 停 掉 捕捉 的 过 程 ， 需 要 由 源 程序 操作 捕捉 流程 。OUTTRAP 捕捉 TSO 命令 输 
出 示例 如 下 。 


/* REXX Source Code */ 


call outtrap 'line." /* or x-outtrap('line.') */ 
"listds te02.rexx.lab" /* IDCAMS command sy 
call outtrap 'off' /* or y=outtrap('off') *# 
say "lines : "line.0 


do i=1 to line.0 
say line.i 
end 


/* 运行 结果 */ 
lines : 5 
TE02.REXX.LAB 
--RECFM-LRECL-BLKSIZE-DSORG 
FB 80 32720 PO 
--VOLUMES-- 
USER02 


4.6.6 PROMPT 函数 


PROMPT 函数 可 以 设置 是 否 开启 或 关闭 与 TSOAE 的 交互 , 或 者 返回 当前 关于 提示 信 
息 的 设置 。 当 设置 PROMPT 为 ON 状态 时 ，REXX 程序 可 以 发 出 TSO/E 命令 提醒 用 户 
未 指定 的 参数 值 等 。 


x = PROMPT('ON')/* x 中 保存 了 原 PROMPT 的 设置 ， 并 且 开启 了 信息 提醒 */ 
如 果 只 是 想 知 道 当前 关于 PROMPT 的 设置 ， 则 可 以 不 指定 任何 参数 。 


x = PROMPT() 
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如 果 数 据 栈 非 空 ， 命 令 会 先 从 数据 栈 中 取 数 据 显示 ， 可 以 用 NEWSTACK 命令 来 防 
止 错 误 提 示 。 如 果 TSO/E 的 PROFILE 中 指定 了 NOPROMPT， 那 么 即使 调用 PROMPT 
COND 函数 也 无 法 显示 提示 信息 ， 可 以 通过 PROFILE 命令 来 控制 在 TSO/E 会 话 中 交互 
信息 的 使 用 。 


4.6.7 SETLANG 函数 


SETLANG 函数 返回 一 个 3 位 字符 码 ， 表 示 当 前 REXX 程序 所 显示 的 语言 种 类 。 也 
可 以 通过 指定 参数 来 设置 当前 需要 显示 的 语言 类 型 。 可 行 的 字符 码 如 表 4-11 所 示 。 
表 4-11 SETLANG 的 参数 设置 表 


字符 码 语言 种 类 字符 码 语言 种 类 
CHS 简体 中 文 ENU 英语 (大 小 写 ) 
CHT 繁体 中 文 ESP 西班牙 语 

DAN 丹麦 语 FRA 法 语 

DEU 德语 JPN 日 语 

ENP 全 大 写 英 语 KOR 韩语 

PTB 葡萄 牙 语 


默认 情况 下 ，REXX 显示 的 信息 的 类 别 与 是 系统 中 的 语言 相同 ， 同 时 指定 的 语言 类 
型 需要 先 在 系统 中 安装 过 才能 使 用 ， 不 然 会 报错 。 


oldlang = SETLANG(ENU) /* oldlang 中 存储 了 原本 的 语言 类 型 设置 */ 
/* 之 后 的 显示 信息 都 将 是 英文 */ 


4.6.5 STORAGE HZ 


STORAGE 函数 可 以 从 系统 中 指定 地 址 处 取得 数据 或 者 放置 数据 ， 有 具体 用 法 如 下 。 
STORAGE (address, length, data) 


Hp, address 参数 是 一 个 十 六 进 制 数 ， 代 表 了 要 读 取 数 据 的 地 址 ，length 指定 了 要 
读 取 的 字符 长 度 ， 默 认 是 一 位 ，data 参数 用 来 设置 要 写 入 该 地 址 的 数据 ， 与 lengh 设置 
的 长 度 无 关 。 如 果 STORAGE 函数 读 取 的 地 址 越界 了 ， 那 么 只 对 地 址 范围 内 的 空间 进行 
操作 。 

storret = STORAGE(000AAE35,25) /* 从 000AAE35 处 读 取 25 个 字符 */ 


storrep = STORAGE (0035D41F,, 'TSO/E REXX') 
/* 将 0035D41F 处 的 数据 替换 成 'TSO/E REXX' */ 


4.6.9 SYSCPUS 函数 


SYSCPUS 函数 在 一 个 复合 变量 中 存储 当前 在 使 用 的 CPU 的 信息 , 其 中 CPU 的 数量 
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放 在 stem.0 变量 中 ， 其 余 的 变量 中 依次 存储 了 CPU 的 序列 号 。 同 时 ，SYSCPUS 函数 的 
返回 值 为 0 或 4，0 表示 执行 成 功 ，4 表示 执行 成 功 ， 但 是 在 执行 的 过 程 中 检测 了 到 一 些 
不 一 致 的 情况 ， 可 能 是 在 用 的 CPU 数量 在 执行 时 发 生 了 变化 。 


/* REXX */ 

X = SYSCPUS ('CPU. ') 

SAY '0, IF FUNCTION PERFORMED OKAY: ' X 
SAY 'NUMBER OF ON-LINE CPUS IS ' CPU.0 
DO I = 1 TO CPU.0 

SAY 'CPU' I ' HAS CPU INFO ' CPU.I 

END 


/* 执行 结果 如 下 */ 

0, IF FUNCTION PERFORMED OKAY: 0 

NUMBER OF ON-LINE CPUS IS 2 

CPU 1 HAS CPU INFO FF0000149221 /* 后 4 位 信息 是 模型 号 */ 

CPU 2 HAS CPU INFO FF1000149221 /* 前 6 位 信息 是 CPU 的 ID 号 */ 


4.6.10 SYSDSN 函数 


SYSDSN 函数 判断 指定 的 数据 集 名 称 是 否 存在 或 该 数据 集 是 否 可 用 ， 指 定 的 数据 集 
可 以 是 顺序 数据 集 或 分 区 数据 集成 员 ， 另 外 ， 如 果 指 定 的 是 分 区 数据 集 的 成 员 ， 则 系统 
会 检查 对 该 成 员 是 否 有 访问 的 权限 。 

通过 SYSDSN 函数 可 以 获得 DASD 上 的 数据 集 信息 , 对 于 磁带 并 不 支持 , 而 世代 数 
据 集 (GDG)， 支 持 绝对 世代 名 称 的 查询 。 可 以 使 用 如 下 方法 指定 数据 集 的 名 称 。 


X = SYSDSN("'USERID.PRO.REXX'") /* 避免 在 数据 集 前 加 前 级 */ 

X = SYSDSN('MYREXX.EXEC') /* 系统 会 自动 增加 前 缀 查找 */ 

VAR = "EXEC" 

X = SYSDSN(VAR) /* 查找 名 称 'USERID.EXEC' */ 
Y = SYSDSN('VAR') /* 查找 名 称 'USERID.VAR' */ 


查询 数据 集 的 状态 信息 ， 如 果 数据 集 可 用 ， 则 返回 OK， 如 果 数 据 集 不 可 用 或 者 不 
存在 ， 将 返回 以 下 信息 的 一 种 。 


MEMBER SPECIFIED, BUT DATASET IS NOT PARTITIONED 
MEMBER NOT FOUND 

DATASET NOT FOUND 

ERROR PROCESSING REQUESTED DATASET 

PROTECTED DATASET 

VOLUME NOT ON SYSTEM 

UNAVAILABLE DATASET 

INVALID DATASET NAME, data-set-name: 

MISSING DATASET NAME 
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下 例 中 ， 通 过 判断 数据 集 的 可 用 性 来 决定 调用 的 子 程序 。 


X = SYSDSN ("PRO .REXX (MEM) ") 
IF X = 'OK' THEN 

CALL ROUTINE1 

ELSE 

CALL ROUTINE2 


4.6.14 SYSVAR FR 


SYSVAR 函数 返回 MVS, TSO/E 和 当前 会 话 的 信息 ， 如 软件 安装 等 级 、 用 户 登 录 过 
程 、 用 户 ID， 等 等 ， 通 过 具体 的 参数 设置 返回 信息 的 内 容 ， 可 以 是 以 下 类 型 。 


. 用 户 信息 
SYSPREF: 用 户 PROFILE 的 前 级 ， 通 常 是 用 户 ID。 
SYSPROC: 当前 会 话 的 登录 过 程 名 ， 如 果 是 批 处 理 作业 ， 返 回 INIT. 
SYSUID: 当前 会 话 中 登录 的 用 户 的 ID， 与 USERID 函数 返回 的 结果 相同 。 


. 终端 信息 
SYSLTERM: 返回 当前 终端 可 以 显示 的 行 数 ， 后 台 运 行 时 返回 0。 
SYSWTERM: 返回 显示 的 屏 宽 ， 后 台 运 行 时 返回 132。 


. 语言 信息 
SYSDTERM: 返回 当前 终端 是 否 支持 显示 DBCS 字符 。 
SYSKTERM: 返回 当前 终端 是 否 支 持 显 示 Katakana 字符 。 
SYSPLANG: 返回 用 户 PROFILE 表 (UPT) 中 记录 的 主要 使 用 语言 。 
SYSSLANG: 返回 用 户 PROFILE 表 (UPT) 中 记录 的 次 要 使 用 语言 。 


4. 程序 信息 

e SYSENV: 返回 当前 程序 运行 是 在 前 台 (FORE) 还 是 后 台 (BACK). 
. 

. 
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SYSICMD: 返回 隐 式 调用 当前 程序 的 命令 或 程序 的 名 称 ， 显 式 调用 则 返回 空 。 
SYSISPF: 返回 当前 程序 是 否 可 用 ISPF 对 话 服 务 CACTIVE/NOT ACTIVE). 
e SYSNEST: 判断 当前 的 程序 是 否 被 其 他 REXX 或 CLIST 调用 。 
e SYSPCMD: 返回 最 近 执 行 的 命令 的 名 称 。 
e SYSSCMD: 返回 最 近 执 行 的 子 命令 的 名 称 。 


5. 系统 信息 

e SYSCPU: 返回 当前 会 话 中 CPU 使 用 的 时 间 ， 以 秒 为 单位 。 
e SYSHSM: 返回 DFHSM 的 安装 级 别 。 

e SYSJES: 返回 JES 系统 的 名 称 和 等 级 。 

e SYSLRACF: 返回 RACF 的 等 级 。 

e SYSNODE: 返回 JES 系统 的 网 络 结 点 名 称 。 
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e SYSRACF: 返回 当前 RACF 是 否 可 用 ， 取 值 AVAILABLE. NOT AVAILABLE, 
NOT INSTALLED， 分 别 对 应 了 安装 且 可 用 ， 安 装 但 不 可 用 和 未 安装 的 状态 。 
SYSSRV: 返回 当前 会 话 中 使 用 的 SRM 服务 的 单元 数 。 
SYSTERMID: 返回 REXX 程序 执行 的 终端 ID。 

SYSTSOE: 返回 TSO/E 的 等 级 。 


. 控制 台 会 话 信 息 

SOLDISP: 判断 命令 返回 的 请 求 信息 在 路 由 到 用 户 控制 台 时 是 否 显示 在 终端 上 。 
UNSDISP: 判断 非 请 求 信息 在 路 由 到 用 户 控制 台 后 是 否 显示 在 终端 上 。 
SOLNUM: 返回 可 以 存储 的 请 求 信息 的 数量 。 

UNSNUM: 返回 可 以 存储 的 非 请 求 信息 的 数量 。 

MFTIME: 判断 用 户 是 否 设置 要 在 系统 信息 中 显示 时 间 戳 。 

MFOSNM: 判断 用 户 是 否 设置 要 在 系统 信息 中 显示 系统 名 称 。 

MFJOB: 判断 用 户 是 否 设置 要 在 系统 信息 中 显示 作业 名 或 作业 ID. 
MFSNMJBX: 判断 用 户 是 否 设置 在 系统 信息 中 不 显示 系统 名 称 和 作业 名 称 。 
SAY SYSVAR("SYSJES") /* 可 能 输出 JES2 OS 2.10 */ 

SAY SYSVAR("SYSRACE")  /* 可 能 输出 AVAILABLE */ 


SYSVAR 函数 可 以 用 来 在 使 用 一 些 命令 或 者 调用 一 些 数据 集 之 前 查看 他 们 的 相关 信 
息 ， 并 根据 结果 进行 适当 的 选择 ， 同 时 ， 用 户 也 可 以 设置 作业 的 执行 、 信 息 的 显示 等 ， 
来 定制 自己 的 系统 。 


4.6.12. KAJ 


函数 包 是 一 组 外 部 函数 或 子 例 程 打包 在 一 起 ， 可 以 更 快速 地 调用 。 它 们 不 是 写 在 
REXX 程序 中 然后 被 逐个 翻译 执行 的 ， 而 是 要 首先 生成 中 间 代 码 ， 然 后 链接 得 到 可 执行 
模块 并 被 调用 。 一 些 符 合 条 件 的 语言 有 COBOL、 汇 编 、PL/I 等 。 

函数 包 可 以 分 为 以 下 三 种 。 

(1) 用 户 自 定 义 : 用 户 自 定义 的 外 部 函数 ， 在 调用 时 最 先 被 搜索 ， 通 常 是 用 来 重 载 
其 他 函数 包 的 。 

(2) 本 地 函数 包 : 一 般 只 对 一 组 用 户 使 用 的 函数 ， 在 用 户 函 数 包 之 后 被 搜索 。 

(3) 系统 函数 包 : 是 可 以 在 整个 系统 范围 内 使 用 的 函数 包 ， 如 TSO/E 外 部 函数 ， 最 
后 被 搜索 。 

用 户 自 定义 的 函数 需要 在 登录 时 被 载 入 ， 默 认 的 用 户 函 数 包 名 称 是 RXFUSER， 默 
认 的 本 地 函数 包 是 RXFLOC， 其 他 函数 包 可 以 在 系统 参数 中 指定 名 称 。 

使 用 自 定义 函数 包 时 ， 首 先 用 户 需 要 自己 编写 需要 引用 的 函数 或 例 程 ， 然 后 为 函数 
表 编 写 一 个 目录 ， 指 定 函数 包头 部 信息 和 每 个 函数 的 入 口 地 址 ， 然 后 将 这 些 外 部 函数 和 
目录 编译 链接 成 一 个 可 执行 模块 。 具 体 请 参见 IBM 白皮书 TSO/E REXX Reference. 

在 了 解 了 REXX 函数 和 子 例 程 的 组 成 后 ， 总 结 一 下 调用 函数 时 ， 系 统 对 该 函数 的 搜 
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索 顺序 。 
(1) 内 部 函数 ， 写 在 同一 个 REXX 程序 中 的 函数 。 
(D 内 置 函数 ， 搜 索 REXX 或 TSO/E 内 置 的 函数 。 
G) 函数 包 ， 按 照 用 户 自 定义 、 本 地 和 系统 函数 包 的 顺序 搜索 。 
(4) 模块 库 ， 搜 索 系 统 中 的 可 执行 模块 。 
(5) 外 部 函数 ， 在 程序 所 在 的 分 区 数据 集 或 系统 库 SYSEXEC 和 SYSPROC 中 搜索 。 


REXX 数据 处 理 


5.1 数据 解析 


REXX 中 丰富 的 数据 解析 功能 是 该 语言 的 一 大 特色 。REXX 中 的 解析 〈parsing) 主 
要 是 将 数据 分 解 为 更 小 部 分 〈 通 常 是 指 字符 串 ) 到 一 个 或 者 多 个 变量 之 中 。 数 据 解析 同 
样 也 可 用 于 数据 格式 化 的 操作 。 


5.4.1. 常用 解析 指令 


常用 到 的 有 如 下 几 条 解析 指令 : 
e PULL 指令 ; 


ARG 指 


令 ; 


PARSE VAR 指令 ; 
PARSE VALUE-WITH 指令 。 


1. PULL 指令 


PULL 指令 


在 前 面 已 经 提 到 过 ， 被 用 作为 从 终端 交互 式 地 读 入 变量 值 。 


say ' please enter 2 word' /* 用 户 输入 "hello world" */ 
PULL wordl word2 /*wordl 取得 值 HELLO, word2 取得 值 WORLD*/ 


事实 上 , PULL 还 可 用 于 取得 数据 栈 中 的 信息 。PULL 将 字符 信息 读 入 后 ， 转 为 大 写 
计 息 并 赋值 给 一 个 或 多 个 变量 。 

PARSE PULL 指令 和 PULL 指令 类 似 ， 取 得 对 应 位 置 的 变量 值 ， 所 不 同 的 是 字符 读 
入 后 ， 不 做 大 写 转换 直接 将 原始 信息 赋 给 对 应 变量 ， 因 此 可 以 将 PULL 命令 可 以 看 作 是 
PARSE UPPER PULL 命令 的 缩 略 形式 。 


2. ARG 指 
ARG 指令 月 


A 
kg 


日 于 取得 传递 给 REXX 程序 〈exec)、 函 数 以 及 子 例 程 的 参数 值 ， 并 将 放 入 


到 对 应 的 一 个 或 者 多 个 的 变量 值 中 。 注 意 ARG 和 PULL 一 样 ， 在 将 参数 值 赋 给 对 应 变量 
Wr, 会 将 参数 值 转换 成 大 小 字母 。 例如 要 执行 一 个 名 称 为 USERID.REXX.EXEC(ARGEX)， 
可 以 使 用 EXEC 指令 在 命令 行 传递 参数 。 
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EXEC REXX(ARGEX) 'hello world.' Exec 


# ARGEX 中 使 用 ARG wordl, word2 接受 参数 的 传递 ，wordl 中 的 值 将 赋值 为 
HELLO, word2 值 为 WORLD。 同 样 ，PARSE ARG 在 将 参数 值 赋予 给 对 应 变量 时 ， 不 会 
对 其 进行 大 写 转换 。 指 令 ARG 也 就 是 指令 PARSE UPPER ARG 的 缩 略 形式 。 

3. PARSE VAR 指令 

PARSE VAR 指令 将 某 个 变量 值 分 解 到 该 变量 之 后 的 一 个 或 多 个 变量 之 中 。PARSE 
VAR 之 间 没 有 UPPER 关键 字 ， 因 此 变量 解析 时 不 对 其 进行 大 小 写 转换 。 


sentence -'Rexx language is good' 

PARSE VAR sentence stringl string2 string3 
SAY stringl  /* stringl 变量 值 为 Rexx */ 
SAY string?  /* string2 变量 值 为 lauguage  */ 
SAY string3  /* string3 变量 值 为 is good “A 


4. PARSE VERSION 指令 
PARSE VERSION 指令 返回 REXX 的 版 本 号 和 REXX 处 理 器 发 布 的 时 间 。 


PARSE VERSION ver 
SAY ver  /* ver 变量 值 为 REXX370 3.48 01 May 1992  */ 


5. PARSE VALUE-WITH 指令 

PARSE VALUE [ expression] WITH. 指令 是 将 某 个 表达 式 , 根据 WITH 关键 字 ， 解 析 
为 一 个 或 多 个 变量 , 在 没有 UPPER 关键 字 时 , 在 变量 解析 时 不 对 其 进行 大 小 写 转换 ， 其 
功能 大 体 和 PARSE VAR 相似 ， 例 如 上 例 中 的 PARSE VAR 语句 可 以 直接 替换 为 PARSE 
VALUE [expression]WITH 指令 。 但 该 指令 比 PARSE VAR 更 灵活 的 一 点 在 于 : VAR 所 指 
定 的 源 数据 (字符 ) 串 只 能 是 变量 (例如 上 例 中 的 sentence), 而 VALUE [ expression] WITH 
中 指 代 的 源 数据 〈 字 符 ) 串 不 仅 可 以 是 变量 〈 例 如 sentence)， 也 可 以 是 直接 的 字符 串 
数据 。 

PARSE VALUE 'Rexx is good' WITH varl var2 var3 var4 


/* varl 取得 "Rexx"” ; var2 取得 "is" */ 
/* var3 取得 "good"” ; var4 为 空 ('') */ 


由 上 述 叙 述 可 知 , 可 以 将 以 上 四 条 指令 都 统一 为 PARSE 关键 字 指 令 . 事 实 上 ,PARSE 
指令 具有 如 下 形式 。 


PARSE [UPPER] valueToParse [template list] 


这 里 valueToParse n] LAzé PULL, ARG, SOURCE, VAR variableName, VERSION, 
VALUE [expression] WITH 等 操作 数 之 一 。 

这 里 template list 指定 了 数据 解析 的 变量 模板 或 者 叫做 变量 格式 。template list 经 常 
指定 了 一 个 变量 模板 ， 例 如 前 面 例子 中 的 “varl var2 var3 ”就 是 一 个 变量 模板 ; 也 可 以 
通过 去 号 分 隔 指定 多 个 模板 ; 也 可 以 省 略 。 正 是 通过 了 template list 的 指定 ，REXX 得 
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以 完成 形式 丰富 的 各 种 数据 解析 工作 。 
5.1.2 template list 详解 


数据 解析 是 通过 对 比 源 数据 和 模板 〈 或 变量 模型 ) 把 源 数据 解析 成 单独 的 数据 。 
REXX 数据 解析 通常 分 两 步 : 

C 将 源 数据 (字符 串 ) 解析 为 模板 格式 指定 的 子 串 。 

@ 将 各 子 串 放 入 对 应 位 置 的 变量 中 ， 称 为 分 解 而 成 的 单词 (word). 

在 template list 省 略 ， 即 不 指定 对 应 的 变量 模板 时 ，REXX 依然 进行 源 数据 的 “ 解 
Afr ?准备 ,但 却 不 进行 后 续 的 变量 赋值 .例如 ,执行 ttmplate list 默认 的 指令 PARSE PULL, 
效果 就 是 将 数据 栈 中 当前 数据 串 删 除 ， 执 行 默认 template list 的 指令 PARSE VALUE 
[expression] WITH 能 简单 完成 表达 式 expression 的 计算 。 

本 节 主 要 介绍 的 是 template list 为 单一 变量 模板 的 情况 。 变 量 模板 指定 了 源 数据 ( 字 
符 串 ) 解析 的 匹配 模式 ， 它 使 用 分 隔 符 分 割 的 变量 名 列表 ， 分 隔 符 可 以 为 空格 、 占 位 符 、 
字符 分 隔 符 或 者 位 置 分 隔 符 。 


1. 空格 分 隔 符 
最 简单 的 变量 模板 就 是 一 组 用 空格 分 隔 的 直接 变量 名 列表 : 


variablel variable2 variable3 ... 


例如 ， 上 述 示例 中 的 “varl var2 var3 var4” 就 是 这 种 变量 模板 ， 作 用 是 将 源 串 通过 
空格 分 隔 解析 为 对 应 单词 ， 每 个 变量 〈 除 去 最 后 一 个 变量 ) 都 取得 一 个 相应 单词 。 如 果 
源 串 所 包含 的 单词 数 多 于 列表 的 变量 数 ， 则 变量 列表 的 最 后 一 个 变量 名 将 取得 数据 串 经 
过 解析 后 的 所 有 剩余 部 分 ， 即 最 后 一 个 变量 可 能 包含 了 多 个 单词 , 并 且 还 可 以 含有 空格 。 
PARSE VALUE 'Value with Blanks.' WITH pattern type 


/* pattern 取得 "Value" */ 
/* type 取得 " with Blanks."*/ 


如 果 源 串 包 含 的 单词 数 少 于 列表 的 变量 数 ， 则 最 后 变量 被 置 为 空 值 (")， 如 下 面 
所 示 。 


PARSE VALUE "Hello World.' WITH datal data2 data3 


/* datal 取得 "Hello" ai 
/* data2 取得 "World." ad 
/* data3 取得 "" >F 


2. 占 位 符 分 隔 符 

除了 使 用 变量 获取 单词 内 容 ， 也 可 以 使 用 句点 作为 占 位 符 ， 句 点 〈.) 占 位 符 可 看 作 
是 一 个 空 变量 (dummy variable) 使 用 ， 即 解析 出 的 单词 不 放 入 实际 的 变量 中 ; 或 用 作 收 
集 不 需要 的 串 尾 信息 使 用 。 


PARSE VALUE "Value with Periods in it.' WITH pattern . type . 
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/* 旬 点 所 对 应 的 'with' 以 及 'in it' 两 个 单词 ,不 放 入 实际 变量 中 */ 
SAY pattern /* pattern Jj"Value" */ 
SAY type /* type "Periods" */ 


3. 字符 (EE) 分 隔 符 

当 需 要 将 源 数 据 〈 字 符 串 ) 以 其 中 源 串 中 特定 字符 或 者 标点 进行 分 隔 解析 时 ， 可 以 
使 用 字符 (变量) 作为 解析 分 隔 符 ， 解 析 分 隔 符 指定 了 以 何 为 标志 进行 源 串 分 解 ， 分 解 
之 后 的 单词 中 不 再 含有 该 分 隔 符 。 例 如 : 


Ik 


phrase = 'To be, or not to be?' /x* 希 望 以 源 字 串 中 的 逗号 分 隔 单词 */ 
PARSE VAR phrase partl ',' part2  /* 此 处 ， 用 '，,' 表 示 该 处 分 隔 符 xf 
SAY part1 /*partl -'To be' x 
SAY part2 /*part2 -' or not to be?' */ 


注意 ， 上 例 中 有 逗号 不 再 包含 在 前 后 的 单词 之 中 ， 因 为 逗号 被 作为 分 隔 符号 使 用 。 进 
一 步 地 ，REXX 人 允许 将 分 隔 符 通过 带 括号 的 变量 表示 ， 从 而 增强 了 编程 的 灵活 性 。 下 例 
中 ， 使 用 变量 separator 表示 分 隔 符 “,”， 输 出 结果 相同 。 


separator - ',' 

phrase = "To be, or not to be?' 

PARSE VAR phrase partl (separator) part2 

SAY partl /*partl -'To be' hr 
SAY part2 /*part2 -' or not to be?' */ 


4. 位 置 分 隔 符 

REXX 的 变量 模板 中 还 允许 使 用 数字 标定 列 的 方式 指定 源 数据 〈 字 符 串 ) 的 分 隔 解 
析 方 式 。 通 常用 无 符号 整数 指定 串 的 绝对 位 置 ， 而 用 带 符号 的 整数 指定 其 相对 位 置 。 

(1) 列 的 绝对 位 置 

一 个 无 符号 的 整数 或 者 用 “= ”连接 的 整数 , 标志 了 变量 模板 中 变量 开始 的 绝对 位 置 。 
第 一 个 字段 从 第 一 列 开始 ， 但 不 包含 随后 标志 列 绝 对 位 置 数字 所 在 的 行 。 随 后 字段 开始 
在 接 下 来 的 位 置 ， 即 列 数 指定 的 列 的 位 置 。 


quote = 'Ignorance is bliss." 
PARSE VAR quote partl 5 part2 
SAY parti /* partl 取得 "Igno" */ 
SAY part2 /* part2 取得 "rance is bliss." */ 


这 个 例子 也 可 以 改写 成 下 面 的 例子 。 可 以 看 出 下 例 中 特定 位 置 指 示 符 “1” 可 以 推断 
出 ， 上 例 中 默认 起 始 位 置 为 第 一 列 ， 下 例 中 ,“=5” 指 示 出 part2 的 起 始 绝对 位 置 为 
第 5 列 。 


quote = 'Ignorance is bliss." 

PARSE VAR quote 1 part1 =5 part2 

SAY part1 /* partl 取得 "Igno" xf 
SAY part2 /* part2 取得 "rance is bliss." x7 


$8539 REXX 数据 处 理 


当 一 句 解析 语句 中 的 位 置 分 隔 符 多 于 一 个 ， 并 且 后 面 的 数值 小 于 前 面 的 数值 ， 则 将 
后 面 变量 的 数据 解析 位 置 重 新 设置 为 第 一 列 ， 从 头 开始 计数 进行 循环 。 


quote = 'Ignorance is bliss.' 

PARSE VAR quote part1 5 part2 10 part3 1 part4 

SAY part1 /* partl 取得 "Igno" id 
SAY part2 /* part2 取得 "rance" */ 
SAY part3 /* part3 取得 " is bliss." */ 
SAY part4 /* part4 取得 "Ignorance is bliss."  */ 


当 解 析 语 句 中 的 变量 在 其 前 面 和 后 面 都 有 位 置 分 隔 符 时 ， 这 两 个 分 隔 符 表示 此 变量 
对 应 数据 的 起 始 和 结束 位 置 。 


quote = 'Ignorance is bliss." 

PARSE VAR quote 1 partl 10 11 part2 13 14 part3 19 1 part4 20 
SAY parti /* partl 取得 "Ignorance" */ 

SAY part2 /* part2 WẸ "is" *y 

SAY part3 /* part3 取得 "bliss" uà 

SAY part4 /* part4 取得 "Ignorance is bliss."  */ 


(2) 列 的 相对 位 置 

在 解析 数据 时 ， 在 模板 中 有 符号 的 整数 标志 了 列 的 相对 位 置 。 也 就 是 说 ， 一 个 部 分 
的 起 始 位 置 由 前 一 个 位 置 分 隔 符 决定 。 有 符号 的 整数 可 以 是 正 的 〈+) 或 者 负 的 〈-)， 表 
示 了 此 部 分 的 起 始 位 置 从 上 一 个 部 分 的 起 始 位 置 右 移 〈 用 “+”) 或 左 移 (用 “-”)。 第 一 
个 部 分 的 起 始 位 置 分 隔 符 省 略 不 写 ， 默认 为 1。 在 下 面 的 例子 中 ,“=5 part2” 表 示 ， 第 二 
部 分 的 起 始 位 置 为 行 ，1+5=6; 同样 地 ， 第 三 部 分 的 起 始 位 置 为 行 ，6+5=11， 依 此 类 推 。 


quote = 'Ignorance is bliss." 

PARSE VAR quote part1 +5 part2 +5 part3 +5 part4 

SAY part1 /* partl contains "Ignor" xy 
SAY part2 /* part2 contains "ance " xy 
SAY part3 /* part3 contains "is bl" Wi 
SAY part4 /* part4 contains "iss." ny 


减 号 的 使 用 与 加 号 类 似 ， 减 号 用 来 在 数据 字符 串 中 回 退 〈 左 移 )。 在 下 例 中 ， 默 认 的 
partl 从 第 一 列 开始 ;“+10 part2”: part2 从 第 1+10=11 列 开始 ;“+3 part3”: part3 从 第 
11+3=14 列 开始 ， 接 下 来 “-3 part4”: part4 从 第 14-3=11 列 开始 。 


quote = 'Ignorance is bliss.' 

PARSE VAR quote part1 +10 part2 +3 part3 -3 part4 

SAY part1 /* partl contains "Ignorance " v 
SAY part2 /* part2 contains "is " ay 
SAY part3 /* part3 contains "bliss." +7 


SAY part4 /* part4 contains "is bliss." xf 
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52 ”数据 栈 操作 


同 其 他 常用 语言 一 样 ，REXX 支持 对 栈 的 操作 。 在 REXX 中 的 栈 称 为 数据 栈 ， 数 据 
栈 与 普通 意义 上 的 栈 存 在 着 一 些 差 别 。 本 节 介 绍 如 何 使 用 REXX 中 的 数据 栈 来 存储 信息 。 


5241 ”什么 是 数据 栈 


TSO/E REXX 的 使 用 一 个 可 扩展 的 数据 结构 来 存储 信息 ， 此 结构 称 为 数据 栈 。 数 据 
栈 结合 了 传统 栈 和 队列 的 特点 。 

栈 和 队列 是 类 似 的 数据 结构 类 型 ， 用 于 临时 存放 数据 项 〈 元 素 )。 当 元 素 被 使 用 时 ， 
它们 就 会 从 数据 结构 的 顶部 被 删除 。 栈 和 队列 的 根本 区 别 是 在 添加 元 素 时 ( 见 图 5-1). TE 
栈 中 增加 元 素 时 增加 到 项 部， 而 队列 中 则 增加 到 底部 。 

使 用 堆栈 时 ， 最 后 一 个 添加 到 栈 的 元 素 elem6) 是 第 一 个 被 移 除 的 。 因 为 对 于 堆栈 ， 
增加 和 删除 的 对 象 是 放 在 栈 项 部 的 元 素 , 这 种 技术 被 称 作 后 进 先 出 (Last In First Out, LIFO)。 

使 用 队列 时 ， 第 一 个 添加 到 队列 的 元 素 Celem) 是 第 一 个 被 移 除 的 。 因 为 元 素 从 队 
列 的 底部 增加 并 从 队列 的 顶部 删除 。 这 种 技术 被 称 作 先进 先 出 (First In First Out, FIFO). 

如 图 5-2 所 示 ， 在 添加 元 素 时 ，REXX 中 的 数据 栈 使 用 了 栈 和 队列 的 综合 技术 。 元 
素 可 以 从 数据 栈 的 顶部 和 底部 增加 。 但 移 除 元 素 时 ， 则 只 能 从 顶部 移 除 。 


1 1 ! 

elem6 eleml 

elem5 elem2 

Saek elem4 elem3 Susie 
elem3 clem4 1 +4 
elem2 elem5 Data | eleml 
elem elemó Stack | elemA 
! i 
图 5-1 栈 和 队列 结构 示意 图 图 5-2 ”数据 栈 结构 示意 图 
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REXX 中 有 几 个 指令 用 来 操作 数据 栈 ， 其 中 两 个 指令 用 来 往 数据 栈 中 添加 元 素 ， 另 
一 个 指令 用 来 从 数据 栈 中 移 除 元 素 。 

1. 添加 数据 栈 元 素 

在 数据 栈 中 存储 信息 数据 有 两 条 指令 : PUSH 和 QUEUE。 

(1) PUSH: 在 数据 栈 的 顶部 增加 数据 。 对 增加 的 数据 项 长 度 没有 限制 。 


elem1 = "String 1 for the data stack' 
PUSH elemi 
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(2) QUEUE: 在 数据 栈 的 底部 增加 数据 。 对 增加 的 数据 项 长 度 没有 限制 。 


elemA = 'String A for the data stack ' 
QUEUE elemA 


如 果 上 述 两 个 指令 在 同一 个 exec 中 对 同一 个 数据 栈 进行 操作 ， 情 况 如 图 5-3 所 示 。 


2. 删除 数据 栈 元 素 

从 数据 栈 中 移 除 数据 使 用 PULL 和 PARSE。 

前 面 提 到 PULL 指令 用 于 从 终端 获取 数据 〈 当 数据 栈 为 空 时 ，PULL 指令 为 从 终端 
获取 数据 作用 )。 确 切 地 说 ，PULL 和 PARSE 用 于 从 数据 栈 顶 端 移 除数 据 。 

PULL stackitem 

SAY stackitem /* displays STRING 1 FOR THE DATA STACK */ 

使 用 上 述 指令 ， 变 量 stackitem 包含 了 eleml 元 素 转化 为 大 写 的 值 。 

如 果 在 PULL 指令 前 增加 PARSE 指令 ， 得 到 的 数据 就 不 会 被 转换 成 大 写 。 

用 上 面 两 条 指令 操作 完 数据 栈 后 ， 数 据 栈 如 图 5-4 所 示 。 


PUSH 
| 
4 elemA 
QUEUE 
图 5-3 ”添加 数据 栈 元 素 操作 示意 1 图 5-4 删除 数据 栈 元 素 操作 示意 2 
3. 数据 栈 元 素数 量 


内 置 函数 QUEUED 可 以 返回 一 个 数据 栈 中 的 元 素数 量 。 例 如 , 为 了 得 到 一 个 数据 栈 
中 的 元 素数 目 ， 可 以 无 参数 地 使 用 QUEUED 函数 。 


SAY QUEUED() /* displays a decimal number */ 
使 用 QUEUED 函数 ， 从 一 个 数据 栈 中 移 除 所 有 元 素 并 显示 它们 ， 例 如 ; 


number = QUEUED() 
DO number 
PULL element 
SAY element 
END 


53 x fti S 


本 节 描 述 如 何 利 用 REXX 实现 对 数据 集 的 IO 处 理 。 在 TSO/E REXX 语言 中 的 
EXECIO 命令 能 够 实现 对 数据 集 的 输入 输出 (VO) 操作 。 这 些 信息 可 以 被 存储 在 数据 栈 
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中 进行 依次 的 处 理 ， 或 者 存储 在 变量 列表 中 进行 任意 顺序 的 处 理 。 
5.3.1 ”什么 时 候 使 用 卫 XECIO 命令 


在 EXECIO 命令 中 存在 很 多 的 操作 数 ， 人 允许 实现 很 多 种 类 的 VO 操作 。 例 如 ， 用 户 
可 以 使 用 EXECIO 命令 来 实现 如 下 操作 。 


从 一 个 数据 集中 读 取 数 据 。 

向 一 个 数据 集中 写 入 数据 。 

打开 一 个 数据 集 ， 并 不 进行 读 写 操作 。 
清空 一 个 数据 集 。 

一 个 数据 集中 拷贝 数据 到 另 一 个 数据 集中 。 
从 一 个 复合 变量 列表 中 读 取 数 据 存 入 数据 集中 。 
向 一 个 顺序 数据 集 末 尾 增加 数据 。 

一 次 更 新 数据 集中 的 一 行 数据 。 


EXECIO 命令 简介 


EXECIO 是 TSO/E REXX 命令 。 它 的 格式 如 下 。 


EXECIO Lines/* DISKR/DISKRU/DISKW DDName LineNum Read/WriteParms 


其 中 


Lines/*; 代表 处 理 的 记录 数 ，* 代 表 整 个 数据 集 。 

DISKR/DISKRU/DISKW: DISKR 表示 以 只 读 方 式 处 理 文件 ，DISKRU 表示 读 取 
记录 人 允许 更 新 文件 ，DISKW 表示 写 文件 。 

DDName: 代表 文件 ， 可 以 通过 JCL 的 DD 语句 来 关联 DDName 和 文件 ， 也 可 
以 通过 Allocate 语句 在 REXX 程序 中 关联 DDName 和 文件 。 

LineNum: 开始 读 的 起 始 记 录 ， 只 适用 于 DISKR 或 DISKRU, 对 于 DISKW 没有 
此 参数 。 

Read/WriteParms: 一 些 读 写 参数 ， 如 STEM. OPEN 和 FINIS ^$, 在 5.3.4 节 

详细 介绍 。 


EXECIO 命令 从 数据 集中 读 取信 息 可 以 使 用 DISKR 或 者 DISKRU 操作 数 。 使 用 这 


两 个 操作 数 ， 可 以 实现 打开 数据 集 ， 但 不 读 取 数据 集 的 任何 记录 。EXECIO 命令 向 数据 
集 存储 信息 使 用 DISKW 操作 数 ， 使 用 这 个 操作 数 ， 同 样 可 以 打开 数据 集 但 不 读 取 数据 
集 的 任何 记录 ， 而 且 可 以 实现 清空 数据 集 。 

在 使 用 REXX 中 的 EXECIO 命令 在 读 取 或 写 入 数据 到 数据 集 之 前 , 数据 集 一定 要 满 


AF 


j 的 要 求 。 


(1) 是 顺序 数据 集 或 是 PDS 的 一 个 成 员 。 


OD 与 要 写 入 的 内 容 有 相符 合 的 数据 集 特性 。 
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使 用 EXECIO 可 以 从 一 个 数据 集 读 取 数据 ， 然 后 放 到 数据 栈 中 ， 存 储 在 数据 栈 中 的 
数据 可 以 存储 为 FIFO 形式 或 LIFO 性 质 。FIFO 形式 是 默认 的 。 也 使 用 EXECIO 从 一 个 
数据 集 读 取 数 据 ， 放 入 到 一 个 复合 变量 列表 var 中 ， 数 据 集中 的 第 一 行 数据 存储 在 var.1 
中 , 第 二 行 数 据 存储 在 var2 中 , 依 此 类 推 。 在 数据 被 存 入 数据 栈 和 变量 列表 以 后 , REXX 
可 以 使 用 这 些 数据 ， 或 者 将 它们 复制 到 另 一 个 数据 集中 ， 再 或 者 更 新 这 些 数 据 然后 重新 
存 入 原始 的 数据 集中 。 

使 用 EXECIO 中 的 DISKR 或 者 DISDRU 操作 数 ， 可 以 从 一 个 数据 集中 读 取 信息 ， 
放 到 数据 栈 或 者 一 个 变量 列表 中 。 使 用 DISKW 操作 数 可 以 向 数据 集 写 入 信息 。 

更 多 内 容 请 参阅 IBM 白皮书 z/OS TSO/E REXX Reference. 


5.3.3 ”文件 读 取 


根据 使 用 输入 数据 集 的 用 途 ， 可 以 使 用 DISKR 或 者 DISKRU 参数 。 

(D DISKR: 对 数据 集 进行 只 读 操作 ， 可 以 使 用 带 有 FINIS 选项 的 DISKR 参数 来 初 
始 化 VO. FINIS 选项 在 读 取信 息 之 后 关闭 数据 集 。 假如 想 要 继续 读 取 数 据 集中 的 下 一 行 ， 
则 不 要 在 EXECIO 语句 中 使 用 FINIS 选项 。 


"EXECIO * DISKR myindd (FINIS" 


(2) DISKRU: 对 数据 集 进行 读 取 更 新 操作 ， 数 据 集 内 容 可 以 读 到 数据 栈 中 或 者 放 
到 复合 变量 中 。 对 读 取 的 最 后 一 条 记录 可 以 进行 更 新 操作 ， 然 后 通过 DISKW 命令 将 更 
新 后 的 记录 写 回 数据 集中 。 


"EXECIO 1  DISKRU myindd (OPEN" 
"EXECIO 1  DISKW  myindd (FINIS" 


1. DISKR 和 DISKRU 参数 选项 

可 以 使 用 下 面 的 DISKR 和 DISKRU 参数 选项 。 

e OPEN: 打开 数据 集 。 当 在 EXECIO 0 后 面 指定 OPEN 参数 ， 则 打开 数据 集 ， 并 
且 将 打开 位 置 的 指针 放 于 第 一 条 记录 之 前 。 


"EXECIO 0 DISKR myindd (OPEN" 


€ FINIS: 读 完 数据 集 后 关闭 数据 集 。 关 闭 后 ， 人 允许 其 他 REXX 程序 通过 相应 的 
DDNAME 使 用 此 数据 集 。 同 时 ， 将 当前 位 置 指 针 指 到 数据 集 的 起 始 位 置 。 

e STEM: 读 取信 息 到 一 个 可 被 索引 的 复合 变量 中 ， 或 者 一 个 有 数字 标识 的 变量 列 
表 。 指 定 STEM 参数 后 跟 一 个 变量 名 ， 来 保证 该 变量 列表 〈 而 不 是 数据 栈 ) 将 接 
收文 件 的 内 容 。 


"EXECIO * DISKR  myindd (STEM newvar." 


在 上 例 中 ， 复 合 变量 是 newvar， 从 数据 集中 得 到 的 信息 被 存储 在 变量 newvar.1、 
newvar.2、newvar.3 等 中 。 复 合 变量 中 的 元 素数 目 将 存储 在 一 个 特殊 变量 newvar0 中 。 
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假如 REXX 读 取 10 行 数据 到 newvar 参数 中 , 则 newvar0=10。 接 下 来 的 变量 newvar.1 
包含 第 一 条 记录 ，newvar2 包含 第 二 条 记录 ,依次 到 newvarlO 包含 第 十 条 记录 。 之 后 的 
变量 〈 比 如 newvarll. newvarl2.) 包含 了 之 前 EXECIO 命令 输入 的 值 。 

为 了 避免 混乱 ， 错 把 之 前 的 输入 值 作为 当前 的 变量 值 ， 可 以 用 EXECIO 命令 清除 整 
个 变量 列表 的 值 。 为 了 清除 所 有 的 变量 项 ， 可 以 使 用 DROP 指令 。 


DROP newvar. 

或 者 将 所 有 变量 值 设 为 零 。 

e SKIP: 跳 过 数据 集中 的 特定 行 ， 不 把 他 们 输入 数据 栈 或 变量 中 。 
"EXECIO 24 DISKR myindd (SKIP" 


e LIFO: 以 LIFO 的 顺序 读 取 栈 中 的 信息 。 也 就 是 说 ，REXX 将 使 用 PUSH 指令 把 
数据 集 信息 放 到 数据 栈 中 。 

e FIFO: 以 FIFO 的 顺序 读 取 栈 中 的 信息 。 也 就 是 说 ，REXX 将 使 用 QUEUE 指令 
把 数据 集 信息 放 到 数据 栈 中 。 假 如 不 指定 LIFO 还 是 FIFO，FIFO 是 默认 的 。 

e 输入 数据 集 : 一 个 IO 数据 集 必 须 首先 定义 成 DDNAME 才能 通过 EXECIO 进行 
操作 。 为 了 不 与 系统 中 之 前 已 经 存在 的 DDNAME 冲突 ，REXX 对 文件 操作 之 前 
一 般 会 定义 一 个 新 的 DDNAME， 比 如 myindd。 例 如 : 


"ALLOC DA(my.in.data) F(myindd) SHR REUSE" 
"EXECIO * DISKR  myindd (FINIS" 


2. 文件 读 取 示 例 
示例 : 想 要 打开 一 个 数据 集 但 不 读 取 任何 记录 ， 则 在 EXECIO 命令 中 选用 OPEN, 
指定 0 行 。 


"EXECIO 0 DISKR myindd (OPEN" 

示例 : 想 要 从 第 100 行 打开 一 个 数据 集 ， 并 不 读 取 任 何 行 到 数据 栈 中 。 

"EXECIO 0 DISKR  myindd 100 (OPEN" 

示例 : 读 取 特 定 的 行 ， 在 EXECIO 命令 中 选用 OPEN 参数 ， 并 指定 行 数 。 
"EXECIO 25 DISKR myindd (OPEN" 

示例 : 读 取 完整 的 数据 集 ， 在 EXICIO 命令 中 选用 OPEN 参数 ， 并 指定 行 数 为 *。 
"EXECIO * DISKR myindd (OPEN" 

示例 : 想 要 从 第 100 行 开 始 读 取 5 行 到 数据 栈 中 ， 然 后 关闭 数据 集 。 


"EXECIO 5 DISKR myindd 100 (FINIS" 
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示例 : 想 要 从 数据 集中 读 取 所 有 记录 ， 然 后 关闭 数据 集 。 
"EXECIO * DISKR myindd (FINIS" 


示例 : 不 想 从 数据 集 的 起 始 位 置 开 始 读 取 ， 而 是 指定 行 数 来 开始 读 取 。 例 如 ， 从 第 
100 行 开始 读 取 数 据 并 存 到 数据 栈 中 。 


"EXECIO * DISKR  myindd 100 (FINIS" 


5.3.4 文件 瑟 人 


使 用 DISKW 操作 数 可 以 从 数据 栈 或 者 复合 变量 列表 中 向 数据 集中 写 入 信息 。 一 个 
典型 的 将 所 有 行 写 到 数据 集 的 EXECIO 命令 如 下 。 


"EXECIO * DISKW myoutdd (FINIS" 


1. DISKW 参数 选项 

可 以 使 用 下 面 的 DISKW 参数 选项 。 

(1) OPEN 

可 以 使 用 EXECIO 0 命令 来 打开 一 个 数据 集 ， 这 个 命令 将 文件 位 置 指针 置 于 文件 
的 第 一 项 记录 之 前 。 如 果 文 件 已 经 是 打开 的 ， 该 命令 不 执行 任何 操作 。 


"EXECIO 0 DISKW myoutdd (OPEN" 


(2) FINIS 

操作 后 关闭 数据 集 。 执 行 这 个 命令 以 后 ， 其 他 的 execs 可 以 访问 该 数据 集 和 它 的 
ddname. ^4 FINIS 被 指定 的 时 候 ， 所 有 数据 栈 中 的 数据 会 被 写 到 数据 集中 ， 从 而 强制 完 
成 VO 操作 。 


"EXECIO * DISKW myoutdd (FINIS" 


(3) STEM 
在 STEM 关键 字 后 指定 复合 变量 或 者 变量 列表 ， REXX 将 要 写 的 源 数据 是 这 些 变 
量 ， 而 不 是 数据 栈 。 


"EXECIO * DISKW myoutdd (STEM newvar." 


在 这 个 示例 中 ，STEM 后 面 指定 了 变量 newvar， 这 个 复合 变量 中 的 所 有 数据 将 被 写 
入 数据 集中 ， 这 些 数据 包括 newvarl. newwar2. newvar3 等 。 

写 数据 时 ， 变 量 newvar.0 实际 上 并 没有 使 用 ， 当 指定 了 * 的 时 候 ，EXECIO 命令 会 
向 数据 集中 写 数 据 直 到 发 现 了 一 个 没有 初始 化 的 变量 。 在 这 个 例子 中 ， 如 果 复 合 变量 包 
含 了 10 个 元 素 ，EXECIO 命令 将 在 newvar.11 时 停止 。EXECIO 命令 也 可 以 指定 从 一 个 
复合 变量 列表 中 写 数据 的 行 数 。 


"EXECIO 5 DISKW myoutdd (STEM newvar." 
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在 这 个 示例 中 ，EXECIO 命令 从 newvar 中 写 5 项 数据 ， 即 使 其 中 可 能 包含 未 初始 化 
的 变量 。 

(4) 输出 数据 集 

同文 件 读 取 类 似 ， 输 出 数据 集 必 须 首 先 分 配给 一 个 ddname， 实 际 上 ， 分 配 一 个 新 的 
ddname 如 myoutdd 是 一 种 更 好 的 方法 , 可 以 在 exec 中 直接 使 用 ALLOCATE 命令 分 配 新 
的 ddname， 如 下 所 示 ， 也 可 以 在 exec 执行 前 先 分 配 好 。 


"ALLOC DA(my.out.data) F(myoutdd) OLD REUSE" 
"EXECIO * DISKW myoutdd ..." 


2. 文件 写 入 示例 
示例 : 想 在 文件 中 写 入 25 行 数据 ， 在 EXECIO 命令 后 直接 指定 要 写 的 行 数 。 


"EXECIO 25 DISKW myoutdd (FINIS" 


示例 : 想 在 文件 中 写 整个 数据 栈 ， 或 者 直到 发 现 一 个 空 行 为 止 ， 可 以 在 EXECIO 后 
面 接 星 号 ， 当 EXECIO 后 面 接 星 号 的 时 候 ， 这 条 命令 将 持续 地 从 数据 栈 中 取出 数据 ， 直 
到 找到 一 个 空 行 。 如 果 到 栈 空 时 ， 仍 然 没 有 发 现 空 行 ，EXECIO 将 提示 在 终端 输入 ， 直 
到 用 户 输入 了 一 个 空 行 。 所 以 如 果 用 户 不 想 有 终端 IO 发 生 ， 请 在 栈 底 用 一 个 空 行 来 指 
示 数 据 的 结尾 。 


"EXECIO * DISKW myoutdd (FINIS" 


示例 : 想 要 写 入 全 部 数据 , 但 如 果 数 据 本 身 包 含有 空 行 , 可 以 使 用 内 置 的 QUEUEDO 
函数 来 指示 数据 栈 中 有 多 少 项 。 


n = QUEUED() 
"EXECIO" n "DISKW outdd (FINIS" 


示例 : 想 清空 数据 集 ， 可 以 先 用 OPEN 选项 打开 一 个 数据 集 ， 而 不 向 其 中 写 记 录 。 
REXX 将 文件 位 置 指针 置 于 第 一 条 记录 之 前 ;然后 使 用 FNIS 选项 关闭 数据 集 ，REXX 
将 向 数据 集中 写 入 一 个 end-of-file 标记 ， 这 样 就 可 以 清空 数据 集 。 注 意 数 据 集 的 状态 属 
性 一 定 不 能 使 用 MOD， 否 则 数据 集 内 容 将 不 能 被 清除 。 

"EXECIO 0 DISKW myoutdd ... (OPEN" 

"EXECIO 0 DISKW myoutdd ... (FINIS" 


示例 : 从 顺序 数据 集 TEOZ. TESTI 复制 内 容 ， 写 入 分 区 数据 集 TEO2.TEST2(MEMI) 


/* REXX */ 

"ALLOC DA(TEO2.TEST1) F(myindd) SHR REUSE" 

"ALLOC DA(TE02.TEST2(MEM1)) F(myoutdd) OLD" 
"NEWSTACK" 

"EXECIO * DISKR myindd (FINIS" /* 读 文件 ur 
QUEUE '' /* 标识 文件 结束 */ 


"EXECIO * DISKW myoutdd (FINIS" /* 写 文件 
"DELSTACK" 
"FREE F(myindd myoutdd)" 


示例 : 更 改 顺序 数据 集 TEO2.EMPLOYEE.LIST 的 第 二 条 记 


"ALLOC DA('TEO2.EMPLOYEE.LIST') F(UPDATEDD) OLD" 
"EXECIO 1 DISKRU UPDATEDD 2" 

PULL line 

PUSH 'Crandall, Amy AMY 5500' 

"EXECIO 1 DISKW UPDATEDD (FINIS" 

"FREE F(UPDATEDD)" 


5.3.5 EXECIO 的 返回 码 


有 效 的 EXECIO 返回 码 在 表 5-1 中 列 出 。 
表 5-1 EXECIO 返回 码 含义 


返回 码 E ox 
0 请 求 的 操作 正常 结束 
1 在 做 DISKW 操作 时 ， 数 据 被 删 减 
2 在 执行 DISKR 或 者 DISKRU 操作 时 ， 在 没有 读 到 程序 中 


了 。( 此 返回 码 在 用 “*” 指 定 行 数 时 则 不 会 发 生 ) 


当 一 个 EXECIO 命令 执行 完 ， 就 会 有 一 个 REXX 的 特殊 变量 RC 作为 返回 码 返 
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xy 


录 。 


回 


bh 指 定 的 行 时 ， 文 件 就 读 完 


在 执行 DISKR 或 者 DISKRU 操作 连接 数据 集 时 ， 发 现 数据 集 为 空 。 文 件 打 开 不 成 


功 且 没 有 数据 返回 
20 严重 错误 。EXECIO 命令 没有 成 功 执行 ， 返 回 错误 信息 


REXX 与 于 系统 的 交互 


本 章 主要 讨论 将 REXX 用 作 一 种 主机 系统 应 用 架构 (System Application Architecture， 
SAA) 的 过 程 化 脚本 语言 。SAA 是 指 可 用 于 设计 和 开发 的 一 组 软件 接口 、 约 定 或 协议 的 
框架 ， 这 里 SAA 环境 特 指 如 下 几 个 操作 系统 。 

(D MVS， 包 括 TSO/E, CICS, IMS. 

(2) VM CMS. 

(3) Operating System/400 (OS/400). 

(4) Operating System/2 (OS/2). 

SAA 过 程 化 脚本 语言 被 定义 为 REXX 语言 的 一 个 子 集 , 其 目的 是 定义 一 个 能 在 多 种 
不 同 环境 中 使 用 的 公共 语言 集 。 而 TSO/E REXX 就 是 在 MVS 系统 上 SAA 的 过 程 语言 
现 。 本 章 将 主要 以 TSO/E REXX 为 例 ， 重 点 介绍 相关 的 REXX 高 级 议题 。 


61 执行 宿主 命令 


REXX 命令 调用 是 指 非 赋值 、 非 关键 字 指令 的 调用 ， 大 致 分 为 REXX 命令 和 宿主 命 
令 (host command) 两 种 。 在 REXX 程序 执行 完 每 条 命令 后 ， 特 殊 变 量 RC 将 被 重 置 为 
当前 命令 执行 后 的 返回 码 。 因 此 通过 对 RC 变量 的 查询 ， 可 判断 程序 执行 过 程 中 命令 执 
行 的 正确 与 否 。REXX 程序 中 可 以 执行 很 多 不 同类 型 和 环境 下 的 命令 。 


1. REXX 命令 

REXX 命令 是 指 REXX 语言 实现 本 身 (这 里 指 TSO/E 实现 下 的 TSO/E REXX) 所 提 
供 的 完成 相关 程序 操作 的 命令 : 包括 了 基本 LO 控制 、 数 据 栈 服务 以 及 控制 流 机 制 ( 如 
前 所 述 的 交互 式 调试 功能 ) 等 。 关 于 REXX 命令 的 详细 介绍 ， 参 见 第 3 章 的 内 容 。 


2. 宿主 命令 

宿主 命令 则 是 指 REXX 程序 执行 的 宿主 环境 所 能 识别 的 命令 。 所 谓 宿主 环境 ， 是 指 
识别 并 执行 特定 命令 的 运行 环境 。REXX 程序 中 可 以 执行 各 种 不 同类 型 的 宿主 命令 。 

通常 在 程序 执行 前 ， 需 要 在 REXX 程序 代码 中 指定 处 理 命令 的 宿主 环境 ， 在 执行 过 
程 中 ，REXX 语言 处 理 器 一 旦 遇 到 了 命令 调用 语句 ， 就 将 该 命令 语句 交 给 预先 指定 的 宿 
主 环境 进行 处 理 。 在 REXX 程序 中 ， 如 果 将 调用 的 命令 加 上 引号 ， 则 可 以 直接 执行 。 
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下 例 为 在 REXX 程序 中 调用 TSO/E 命令 ALLOC 的 程序 片段 。 该 示例 的 作用 是 分 配 
一 个 名 为 NEW.DATA 的 数据 集 ， 而 该 数据 集 的 属性 从 数据 集 OLD.DATA 继承 。 


"ALLOC DA(NEW.DATA) LIKE(OLD.DATA) NEW" 


每 个 REXX 程序 至 少 有 一 个 默认 的 宿主 环境 ， 如 上 例 中 ，TSOAE 就 是 默认 的 宿主 环 
境 。 如 之 前 所 述 ， 在 该 宿主 环境 (TSO) 下 的 REXX 程序 既 可 以 执行 REXX 本 身 的 命令 
(例如 IO 控制 信息 的 EXECIO 命令 )， 也 可 以 执行 TSO/E 命令 (例如 分 配 数据 集 的 
ALLOCATE 命令 )。 
TSO/E REXX 可 用 的 宿主 环境 包括 以 下 环境 。 
(1)TSO: 在 此 宿主 环境 下 , 可 在 TSO/E 地 址 空间 中 执行 TSO/E 命令 和 TSO/E REXX 
命令 。 
(2) MVS: 在 此 宿主 环境 下 ， 可 在 非 TSO/E 地 址 空间 中 执行 TSO/E REXX 命令 。 
G) LINK: 在 此 宿主 环境 下 ， 可 以 链接 相同 级 别 的 模块 。 
e LINKMVS: 该 宿主 环境 比 LINK 更 进一步 。 可 向 被 调用 模块 传递 多 个 参数 ， 且 
被 调用 模块 能 够 修改 这 些 参数 。 要 注意 的 是 ， 传 递 给 被 调用 模块 的 参数 中 ,包括 
了 参数 的 长 度 标识 。 

e LINKPGM: 该 宿主 环境 与 LINKMVS 的 区 别 在 于 , 传递 给 被 调用 模块 的 参数 中 ， 
不 包括 参数 的 长 度 标识 。 

(4) ATTACH: 在 此 宿主 环境 下 ， 可 以 将 不 同 级 别 的 模块 链接 到 一 起 。 

e ATTACHMVS: 参见 LINKMVS。 

e ATTACHPGM: 参见 LINKPGM. 

(5) ISPEXEC: 在 此 宿主 环境 下 ， 可 以 执行 ISPF 命令 。 

在 ISPEXEC 环境 下 ， 提 供 了 近 百 个 REXX 程序 (无 论 是 在 线程 序 还 是 批 处 理 程序 ) 
可 用 的 ISPF 服务 ， 包 括 对 于 交互 式 应 用 的 相关 支持 ， 如 显示 面板 、 消 息 框 、 弹 出 窗口 、 
菜单 栏 以 及 帮助 等 ， 对 于 操作 数据 集 及 数据 集成 员 的 支持 〈 其 功能 类 似 于 ISPF 的 3.2、 
3.3 及 3.4 数 据 集 操作 选项 ); 对 于 数据 的 读 写 能 力 ( 可 以 替代 EXECIO 命令 和 SAY & PULL 
指令 的 作用 )。ISPEXEC 环境 还 提供 了 调用 ISPF 表 的 功能 ， 从 而 可 以 把 结构 化 数据 以 行 
或 列 的 形式 〈 即 是 表 的 形式 ) 存储 。 最 后 ，ISPEXEC 环境 提供 文件 裁剪 的 能 力 ， 该 功能 
可 以 很 好 地 帮助 生成 格式 化 的 记录 并 存 入 数据 集 ， 而 这 些 记 录 通 常 被 用 作 JCL 作业 或 系 
统 实用 程序 Cutilities) 的 数据 输入 。 

(6) ISREDIT: 在 此 宿主 环境 下 ， 可 以 执行 ISPF/PDF EDIT 命令 。 

ISREDIT 环境 提供 的 服务 包括 查找 、 修 改 、 插 入 、 删 除数 据 以 及 搜索 并 修改 编辑 器 
中 所 有 的 环境 变量 等 。 因 此 ， 在 ISREDIT 环境 下 ， 开 发 者 可 以 顺利 地 构建 出 类 似 ISPF 
下 的 数据 集 编辑 面板 ， 并 通过 进一步 的 命令 调用 来 扩展 该 Editor 面板 的 功能 。 

(7) CONSOLE: 在 此 宿主 环境 下 ， 可 以 执行 MVS 系统 及 子 系统 命令 。 

CONSOLE 环境 下 的 命令 被 解析 为 MVS 控制 台 命令 ， 或 者 是 子 系统 命令 〈 如 正 S2 
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命令 )， 而 对 于 这 些 命令 的 使 用 可 以 帮助 开发 者 建立 一 些 自动 化 操作 的 过 程 。 关 于 MVS 
命令 的 详细 使 用 信息 ， 可 以 查看 IBM 白皮书 MVS System Commands 。 

(8) 其 他 : 除 上 述 宿 主 环境 外 ， 还 有 COMMCPI、LU62 以 及 APPCMVS 等 宿主 
环境 。 
值得 注意 的 是 ， 在 不 同 的 模式 下 ，TSO/E REXX 提供 的 宿主 环境 并 不 相同 。 在 ISPF 
模式 下 ， 以 上 所 有 的 宿主 环境 都 可 以 被 使 用 (TSO 为 默认 宿主 环境 )。 在 TSO/E READY 
模式 下 , ISPEXEC 和 ISPEDIT 不 能 使 用 (TSO 为 默认 宿主 环境 )。 而 在 非 TSO/E 环境 下 ， 
除了 ISPEXEC 和 ISPEDIT，TSO 环境 也 不 能 使 用 ， 此 时 的 默认 宿主 环境 为 MVS。 

指定 或 切换 当前 命令 执行 的 宿主 环境 ， 都 要 通过 ADDRESS 指令 ， 该 指令 的 调用 方 
式 有 如 下 两 种 形式 : 


Address EnvironmentName 


Address EnvironmentName CommandExpression 


前 一 种 形式 将 所 有 后 续 命令 处 理 的 宿主 环境 都 变 为 指定 环境 ， 而 后 一 种 形式 仅仅 改 
变 的 是 CommandExpression 参数 所 指定 命令 的 宿主 环境 , 该 指令 后 的 命令 处 理 不 受 影响 。 

注意 下 例 的 程序 片段 , 其 中 的 ADDRESS 指令 只 将 第 一 条 命令 切换 到 ISPF 宿主 环境 
中 执行 ， 而 之 后 的 命令 仍然 在 TSO 宿主 环境 中 执行 。 

ADDRESS ISPEXEC "EDIT DATASET ("dsname")" 

/* 只 有 命令 "EDIT DATASET ("dsname")" 在 ISPF 宿主 环境 中 执行 */ 


"ALLOC DA("dsname") F(SYSEXEC) SHR REUSE" 
/* 后 面 语句 恢复 到 默认 的 Tso 宿主 环境 */ 


如 果 需 要 查看 当前 宿主 环境 ， 可 以 调用 内 置 函数 CurEnvName= ADDRESSO， 通 过 
其 返回 值 CurEnvName 确定 当前 所 处 的 宿主 环境 。 

此 外 ， 若 要 TSO/E REXX 中 检测 某 宿主 环境 是 否 可 用 ， 可 通过 SUBCOM 命令 ， 例 
如 : 

ARG dsname 

SUBCOM ISPEXEC 

IF RC=0 THEN 

ADDRESS ISPEXEC "SELECT PGM(ISREDIT)" 

ELSE 

"EDIT" dsname 


该 例 中 ，SUBCOM 命令 检查 了 指定 的 宿主 环境 ISPEXEC 是 否 存在 ， 并 将 检查 结果 
作为 返回 值 存 入 RC 变量 中 。 

实际 上 ，SUBCOM 命令 查找 宿主 环境 表 (Host Command Environment Table)， 该 表 
中 存放 所 有 可 被 使 用 的 宿主 环境 的 名 称 〈 如 TSO MVS 等 )。 通 过 添加 、 删 除 、 修 改 宿 
主 环境 表 中 的 记录 ， 用 户 可 以 对 当前 系统 可 用 的 宿主 环境 进行 定制 。 
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6.2 REXX 与 TSO 环境 的 交互 


TSO/E 宿主 环境 是 最 常用 的 宿主 环境 ， 在 该 环境 下 ， 可 以 使 用 REXX 十 分 便捷 地 调 
H TSO/E 命令 ， 编 写 脚 本 来 进行 系统 的 日 常 维护 工作 。 
f£ TSO/E 宿主 环境 中 , REXX 可 以 直接 调用 RACF TSO 命令 ， 以 帮助 系统 管理 员 进 
行 大 批量 的 操作 ， 如 账号 分 配 、 资 源 授权 等 工作 。 
下 面 的 示例 为 组 GROUP 批量 添加 了 USER ID 为 USR001 —USRO040 的 新 用 户 ， 并 
为 这 些 用 户 数据 集 分 别 创建 了 RACF PROFILE 进行 读 写 保护 。 


DO I= 1 TO 9 
"AU USR000'I' DFLTGROUP (GROUP) OWNER (GROUP) PASSWORD (pass) ' 
'ADDSD USR000'I'.** GENERIC OWNER (GROUP) UACC (NONE) ' 

END 

DO I = 10 TO 40 
"AU USROO'I' DFLTGROUP (GROUP) OWNER (GROUP) PASSWORD (pass) ' 
'ADDSD USROO'I'.** GENERIC OWNER (GROUP) UACC (NONE) ' 

END 


如 果 想 要 为 DB2 用 户 授予 数据 库 权 限 , 同样 可 以 在 TSO/E 宿主 环境 下 , 调用 TSO/E 
命令 及 REXX 命令 ， 批 量 生成 DCL (Data Control Language) 语句 ， 随 后 通过 Batch 的 
方式 来 执行 。 也 就 是 说 ， 用 户 可 以 编写 REXX 脚本 来 生成 一 个 JCL 作业 ， 然 后 将 DCL 
语句 作为 该 JCL 作业 的 输入 ， 最 后 执行 此 作业 完成 对 于 DB2 用 户 的 批量 授权 。 

具体 的 代码 示例 如 下 。 


/* REXX */ 
/* allocate file GRTGEN, associating with a specific data set */ 
"ALLOC DA('IBMUSER.JCL(GRTGEN)') FILE(GRTGEN) SHR REUSE" 
/* compound variables contain JCL statements */ 
JCL.1 - '//GRTNEW JOB NOTIFY-&SYSUID' 
JCL.2 = '//JOBLIB DD DSN-DSN910.SDSNLOAD, DISP-SHR' 
JCL.3 = '//DDLTABLE EXEC PGM-IKJEFTO1, DYNAMNBR-20, REGION-32M' 
JCL.4 = '//SYSTSPRT DD SYSOUT-*' 
JCL.5 = '//SYSPRINT DD SYSOUT-*"' 
6 
y 
8 


"s 


JCL.6 = '//SYSUDUMP DD SYSOUT-*"' 

JCL.7 = '//SYSTSIN DD *' 

JCL.8 = 'DSN SYSTEM (DB9G) ' 

JCL.9 = "RUN PROGRAM(DSNTEP2) PLAN(DSNTEP91) -" 
JCL.10 - " LIB('DSN910.DB9G.RUNLIB.LOAD')" 
JCL.11 = "//SYSIN pp x" 

/* compound variables contain SQL statements */ 
DO I = 1 TO 9 

PACKAGEADM.I = "GRANT PACKADM ON COLLECTION IBM000'I' TO IBM000'I';' 
CREATEDBA.I = 'GRANT CREATEDBA TO IBM000'I';' 
BINDADD.I = "GRANT BINDADD TO IBM000'I';' 

END 
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DO I - 10 TO 40 

PACKAGEADM.I = "GRANT PACKADM ON COLLECTION IBMOO'I'STO IBMOO'I';' 
CREATEDBA.I = "GRANT CREATEDBA TO IBMOO'I';' 

BINDADD.I = 'GRANT BINDADD TO IBMOO'I';' 

END 

/* write all statements from compound variables into the file */ 
"EXECIO 0 DISKW GRTGEN (OPEN" 

"EXECIO * DISKW GRTGEN (STEM JCL." 

"EXECIO * DISKW GRTGEN (STEM PACKAGEADM." 

"EXECIO * DISKW GRTGEN (STEM CREATEDBA." 

"EXECIO * DISKW GRTGEN (STEM BINDADD." 

"EXECIO * DISKW GRTGEN (FINIS" 

/* free the file allocation */ 

"FREE FILE (GRTGEN)" 


在 该 例 中 ,REXX 首先 调用 TSO/E 命令 ALLOCATE 分 配 一 个 名 为 GRTGEN 的 文件 ， 
而 该 文件 实际 关联 到 已 有 的 数据 集 IBMUSER.JCL(GRTGEN)。 随 后 ， 将 一 些 固定 的 JCL 
作业 语句 写 入 复合 变量 JCL， 其 中 包括 指定 PGM = 下 JEFT01， 并 在 SYSIN 中 启动 数据 库 
DSN 环境 ， 运 行 DSNTEP2 程序 ， 该 程序 可 以 以 批 处 理 的 方式 来 执行 随后 输入 SQL 语句 。 

然后 以 同样 的 方式 将 所 有 SQL 授权 语句 写 入 复合 变量 PACKAGEADM 以 及 
CREATEDBA 中 之 后 ， 最 后 调用 TSO/E REXX 命令 EXECIO， 该 命令 将 之 前 几 个 复合 变 
量 的 内 容 依 次 写 入 到 事先 分 配 好 的 文件 GRTGEN 中 ,也 即 数据 集 IBMUSER.JCL(GRTGEN) 
之 中 。 最 后 ， 再 次 使 用 TSO/E 命令 释放 之 前 分 配 的 文件 GRTGEN。 

执行 该 REXX 脚本 后 , 查看 IBMUSER.JCL(GRTGEN) 数 据 集 , 其 内 容 如 图 6-1 所 示 。 


File Edit EditSettings Menu Utilities Compilers Test Help 


IBMUSER. JCL (GRTGEN) - 01.00 Columns 00001 00072 
Command ===> Scroll ===> CSR 
OO OOOO OOOO OOOO OOOO TOp of. Da La FA A A A A e oo A EA A A 
000001 //GRTNEW JOB NOTIFY-&SYSUID 
000002 //JOBLIB DD DSN DSN910.S8DSNLOAD, DISP-SHR 
000003 //DDLTABLE EXEC PGM-IKJEFTO01,DYNAMNBR-20,TIME-1440,REGION-32M 
000004 //SYSTSPRT DD SYSOUT-* 
000005 //SYSPRINT DD SYSOUT-* 
000006 //SYSUDUMP DD SYSOUT-* 
000007 //SYSTSIN DD* 
000008 DSN SYSTEM(DB9G) 
000009 RUN PROGRAMDSNTEPF2)  PLAN(DSNTEP91) - 
000010 LIB('DSN910.DB9G.RUNLIB.LOAD') 
000011 //SYSTN DD * 
000012 GRANT PACKADM ON COLLECTION IBM0001 TO IBM0001; 


GRANT CREATEDBA TO IBM0001; 


GRANT BINDADD TO IBM0001; 


E-Split B-Exit E5-Rfind F6-Rchange 
BB=Swap Fl0=Left Fll=Right H2-Cancel 


图 6-1 IBMUSERJCL(GRTGEN) ^j € 
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提交 该 作业 ， 即 可 完成 对 于 用 户 IBM0001 到 IBM0040 的 DB2 相关 授权 。 


6.3 REXX 与 MVS 控制 台 的 交互 


用 户 可 以 通过 TSO/E 的 CONSOLE 命令 建立 一 个 扩展 的 MVS 控制 台 会 话 。 通 过 激 
活该 控制 台 会 话 ， 用 户 可 以 输入 相应 的 MVS 系统 和 子 系统 命令 并 获取 相应 的 系统 命令 
响应 信息 。 用 户 在 控制 台 会 话 中 可 使 用 的 MVS 系统 及 其 子 系统 命令 ， 取 决 于 当前 控制 
台 用 户 的 MVS 命令 授权 。 

通常 ， 用 户 可 以 在 TSOE READY 模式 下 ， 输 入 如 下 命令 激活 控制 台 会 话 。 


CONSOLE ACTIVATE 

相应 地 ， 通 过 DEACTIVATE 关键 字 即 可 中 止 当前 控制 台 会 话 。 

CONSOLE DEACTIVATE 

在 激活 控制 台 会 话 后 , 即 可 以 在 REXX 程序 中 使 用 SYSCMD 关键 字 使 用 MVS 系统 
及 其 子 系统 命令 。 

"CONSOLE SYSCMD (system command)" 
正如 之 前 所 提 到 的 ， 用 户 可 通过 ADDRESS CONSOLE 命令 将 当前 宿主 环境 切换 为 


CONSOLE， 从 而 可 以 避免 调用 命令 时 对 SYSCMD 关键 字 的 重复 使 用 。 下 面 的 例子 中 展 
示 了 该 模式 。 


/* REXX program ... */ .. 
"CONSOLE ACTIVATE" ... 
ADDRESS CONSOLE "mvs cmdl" .. 
"mvs cmd2" .. 


"mvs cmd3" ... 
"CONSOLE DEACTIVATE" 
EXIT 


在 使 用 该 控制 台 宿 主 环境 之 前 ， 用 户 必 须 确保 本 身 拥 有 控制 台 命令 权限 。 如 果 当 前 
控制 台 会 话 没有 被 激活 ， 宿 主 环境 CONSOLE 将 无 法 定位 和 识别 MVS 系统 命令 ，RC 返 
回 码 被 置 为 -3 表明 当前 有 错误 产生 。 

如 果 有 关 的 控制 台 会 话 信息 没有 显示 于 终端 ， 可 通过 TSO/E 的 外 部 功能 函数 
GETMSG 获取 对 应 信息 。CART (Command And Response Token). 关键 字 可 将 REXX f£ 
序 中 执行 的 MVS 系统 命令 以 及 MVS 子 系统 命令 同 对 应 命令 的 响应 输出 关联 起 来 , 即 给 
对 应 命令 的 相应 输出 一 个 标记 值 ， 可 以 用 于 检测 该 命令 的 当前 响应 输出 是 否 和 预期 的 响 
应 输出 一 致 。 

下 面 的 例子 中 ， 激 活 控制 台 会 话 后 启动 两 台 系 统 打 印 机 (PRT1 和 PRT2)， 并 为 对 应 
的 每 个 START 命令 分 别 指定 其 唯一 的 CART 值 ， 并 通过 将 CART 值 作为 参数 传递 给 检 
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测 程序 CHKPRT. CHKPRT 对 CART 所 对 应 的 响应 输出 进行 检测 ， 并 判断 打印 机 是 否 启 
动 成 功 ， 显 示 信 息 提示 。 

CONSPROF SOLDISP (NO) SOLNUM(400) 

CONSOLE ACTIVATE 

CONSOLE SYSCMD ($S PRT1) CART('PRT10001') 

CONSOLE SYSCMD($S PRT2) CART('PRT20002') 


EXEC MY.EXEC(CHKPRT) 'PRT10001' 
EXEC EXEC MY.EXEC(CHKPRT) 'PRT20002' EXEC 


下 面 的 例子 是 一 个 CHKPRT 检测 程序 ， 通 过 GETMSG 收集 对 应 请 求 的 响应 输出 ， 
并 置 于 复合 词 干 PRTMSG 中 ，PRTMSG:0 中 为 输出 信息 条 数 ，PRTMSG.1 表示 响应 输出 
的 第 一 条 信息 ， 通 过 将 其 与 预期 标志 '$HASP000' 进 行 匹配 比较 后 ， 判 断 该 命令 执行 情况 ， 
并 打印 出 该 控制 命令 执行 的 最 终结 果 。 


/* REXX exec to check start of printers */ 
ARG CARTVAL 
GETCODE - GETMSG('PRTMSG. ', 'SOL',CARTVAL,,60) 
IF GETCODE - 0 THEN 
DO 
IF POS('SHASPOO0',PRTMSG.1) = 0 THEN 
SAY "Printer started successfully." 
ELSE 
DO INDXNUM = 1 TO PRTMSG.O 
/* PRTMSG.0 中 为 输出 信息 的 行 数 */ 


SAY PRTMSG.INDXNUM /* 输 出 信息 全 部 显示 */ 
END 
END 
ELSE 
SAY "GETMSG error retrieving message. Return code is" GETCODE 
EXIT 
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在 通常 情况 下 , REXX 通过 基本 的 TSO 命令 即 可 以 完成 与 JES 的 交互 , 如 使 用 TSO 
Submit 命 令 提交 作业 , 使 用 TSO Cancel 命令 取消 作业 , 使 用 TSO Status 命令 和 TSO Output 
命令 查看 作业 的 执行 信息 等 。 

REXX 可 以 借助 TSO 的 Submit 命令 、TSO/E 编辑 器 的 Submit 命令 、 控 制 台 Start 
方式 、EXECIO 内 部 读 入 器 、FTP 等 方式 提交 JCL 作业 。 其 中 ， 最 常 使 用 的 是 TSO 的 
Submit 命令 ， 在 命令 中 指定 JCL 作业 所 在 数据 集 ， 即 可 提交 该 作业 。 

一 个 最 简单 的 通过 REXX 提交 JCL 作业 的 示例 如 下 。 


/* REXX */ 
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"SUBMIT ("IBMUSER.REXX.JCL (EXECREXX) ')" 


执行 该 脚本 ， 可 以 看 到 IBMUSER.REXX.JCL(EXECREXX) 作 业已 经 被 提交 到 JES, 
并 返回 其 执行 情况 。 

JOB EXECREXX(JOB06802) SUBMITTED 

类 类 大 

12.11.14 JOB06802 $HASP165 EXECREXX ENDED AT SVSCJES2 


MAXCC-0 CN(INTERNAL) 
kkk 


通过 借助 REXX 强大 的 功能 函数 以 及 外 部 数据 栈 , 可 在 REXX 程序 内 部 自由 灵活 地 
构建 JCL 作业 ， 借 此 完成 很 多 特定 重复 的 作业 编写 ， 从 而 大 量 减少 了 重复 的 人 工 编 码 和 
提交 工作 。 

通常 可 以 在 REXX 中 构建 完成 JCL 作业 代码 后 ,通过 将 宿主 环境 转换 为 TSO, 并 运 
行 提 交 (Submit) 命令 , 即 可 完成 JCL 作业 的 提交 。 例如 , 通过 ADDRESS TSO "SUBMIT 
'<DSN NAME>" 提 交 作业 。 

下 例 即 为 一 个 完整 的 通过 REXX 数据 栈 方式 构建 JCL 作业 ， 并 通过 Submit 命令 提 
交 的 实例 。 

/* REXX */ 

user = USERID() /* 获得 当前 调用 者 ID */ 

queue "//"user"A JOB ACCTR,NOTIFY-"user",MSGCLASS-A " 

queue "//REXX EXEC PGM-IKJEFTO1, a 


queue "// PARM='REXX1' " 

queue "//SYSTSPRT DD SYSOUT-* s 

queue "//SYSTSIN DD DUMMY " 

queue "//SYSPROC DD DSN-SP005.REXX.SOURCE, DISP-SHR x 
queue "// x 

queue "$$ 

o = OUTTRAP ("output .", , "CONCAT") 

ADDRESS TSO "SUBMIT * END($$)" /* 调 用 SUBMIT 命令 提交 作业 */ 
o= OUTTRAP (OFF) /* 提交 后 ， 显 示 命 令 响应 输入 */ 
SAY output.2 /* 输 出 "IKJXXXX JOB SP005A (JOBXXXX) SUBMITTED" */ 
RETURN 


该 REXX 程序 构建 的 JCL 作业 的 功能 为 : 通过 实用 程序 IKJEFTOI 在 批 处 理 环境 下 
后 台 调 用 另 一 个 名 为 REXX1 的 REXX 程序 。 在 程序 逻辑 中 ,通过 函数 USERIDO 取 得 当 
前 调用 者 的 用 户 ID， 并 作为 REXX 变量 user 用 在 NOTIFY="user" 处 ， 使 得 程序 在 每 次 
调用 时 ， 根 据 情况 自动 决定 信息 返回 时 的 用 户 ID。 

在 本 例 中 使 用 到 了 数据 栈 ， 所谓 数据 栈 是 指 TSO/E REXX 所 使 用 的 一 种 外 部 数据 结 
构 ， 该 数据 结构 结合 了 栈 Cstack) 和 队列 (queue) 的 特点 ， 可 以 用 于 程序 数据 的 存储 与 
处 理 。 这 里 使 用 的 queue 语句 即 是 将 最 新 构建 的 一 条 JCL 语句 加 入 到 数据 栈 底 部 ， 而 最 
早 构 建 的 语句 被 弹出 到 栈 项 ， 即 符合 “先进 先 出 ”队列 的 特点 。 通 过 这 种 方法 ， 可 以 在 


92 | 


大 型 主机 系统 管理 REXX 编程 详解 


数据 栈 中 构建 一 个 逻辑 正确 、 结 构 完整 的 JCL 作业 ， 以 方便 后 续 的 提交 使 用 。 

代码 中 所 用 的 OUTTRAPO 函 数 的 功能 是 将 其 前 后 所 包围 的 REXX 命令 (这 里 是 指 
ADDRESS TSO "SUBMIT * END($$)") 所 产生 的 屏幕 输出 ， 放 入 到 复合 词 干 “output ” 
中 ， 其 中 output.2 即 可 打印 出 Submit 命令 提交 后 通常 产生 的 第 二 行 屏幕 响应 ， 即 提交 完 
成 的 屏幕 提示 。 由 于 指定 了 NOTIFY-"user" (当前 用 户 ID)， 因 此 随后 的 系统 的 响应 以 
及 返回 码 也 会 随 之 出 现在 终端 屏幕 上 。 

通过 直接 执行 该 REXX 程序 ， 可 以 实现 在 REXX 程序 内 部 提交 作业 ， 完 成 后 台 调 用 
另 一 个 REXX 程序 的 功能 。 由 于 构建 JCL 的 作业 代码 及 其 提交 代码 ， 都 在 程序 内 部 自动 
完成 ， 因 而 可 以 省 去 重复 的 手工 编写 及 提交 JCL 作业 的 需要 。 

除了 直接 使 用 REXX 自身 的 函数 OUTTRAP 来 获取 TSO Submit 命令 的 作业 执行 结 
果 外 ， 另 一 种 方法 是 使 用 TSO 命令 TSO Status 以 及 TSO Output。 这 种 方法 的 优势 在 于 
用 户 有 了 更 大 的 自由 空间 ， 他 们 可 以 选择 获取 需要 的 输出 ， 并 根据 具体 的 参数 值 判断 
之 后 的 操作 ;也 可 以 将 一 个 或 多 个 作业 执行 结果 输出 保存 到 指定 数据 集中 ， 以 便于 存 
档 和 之 后 的 查阅 。 

如 果 要 查看 作业 的 执行 结果 ， 可 以 使 用 TSO Status 命令 ， 从 Spool 中 取得 关于 该 
作业 的 状态 信息 ， 也 即 作业 当 前 所 在 的 队列 〈 如 某 作 业 当 前 是 否 尚未 执行 ， 处 于 等 待 
队列 中 ; 或 者 已 经 执行 完毕 ， 但 还 处 于 输出 队列 中 )。 获 取 某 个 特定 作业 状态 的 语法 
如 下 。 

/* REXX */ 

"STATUS jobname (jobid)" 


其 中 jobname 为 作业 名 ， 如 果 没 有 指定 jobid， 则 系统 返回 结果 会 包括 所 有 相同 作业 
名 的 作业 集合 。 如 果 要 同时 查看 多 个 作业 的 信息 ， 则 可 以 在 STATUS 命令 后 跟随 多 个 
jobname 参数 ， 参 数 之 间 以 逗号 间隔 。STATUS 命令 返回 结果 如 下 。 


JOB IBM100S (TSU07457) EXECUTING 


kkk 


如 果 想 要 获得 完整 的 结果 ， 则 可 以 执行 TSO Output 命令 ， 该 命令 可 以 输出 整个 作业 
的 全 部 信息 。 在 实际 环境 下 ， 用 户 通常 并 不 需要 打印 作业 的 全 部 信息 ， 而 是 根据 自己 的 
需求 从 中 选取 重要 信息 进行 输出 , 如 下 面 的 示例 中 , 利用 Output 命令 , 只 输出 了 Message 
Class 的 信息 。 执 行 的 作业 如 下 。 


//JWSD582 JOB 91435,MSGCLASS-X 
// EXEC PGM-IEHPROGM 
//SYSPRINT DD SYSOUT-Y 
//DD2 DD UNIT-3330, VOL-SER-333000, 
// DISP-OLD 
//SYSIN DD * 
SCRATCH VTOC, V0L-3330-333000 
/* 
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REXX 程序 调用 作业 的 部 分 输出 如 下 。 

/* REXX */ 

"Output JWSD582 Class(X)" 

如 果 想 要 了 解 更 多 有 关 TSO 命令 的 语法 细节 及 其 实例 , 可 以 参阅 IBM 白皮书 TSO/E 
Command Reference 以 及 TSO/E User s Guide。 如 果 想 要 进一步 了 解 REXX 如 何在 JES 系 
统 日 常 维护 之 中 使 用 ， 则 建议 阅读 随后 关于 REXX 与 SDSF 的 交互 部 分 。 


6.5 REXX 5 SDSF 的 交互 


SDSF 是 主机 系统 管理 不 可 或 缺 的 工具 之 一 ， 作 为 访问 JES 的 子 系统 ， 从 监测 作业 
的 当前 状态 、 所 在 队列 、 具 体 输出 (通过 Spool 访问 )， 到 执行 JES 命令 启动 或 挂 起 某 个 
任务 或 子 系统 ， 或 者 是 查看 系统 日 志 ， 主 机 系统 管理 员 都 是 使 用 SDSF 来 完成 这 些 日 常 
维护 工作 的 。 

IBM 从 z/OS VIR9 开始 支持 REXX 语言 的 SDSF 编程 接口 , 基本 上 大 部 分 以 往 需要 
人 工交 互 的 操作 现在 都 可 以 通过 REXX 脚本 完成 ， 比 如 查看 或 修改 指定 作业 的 信息 、 查 
看 或 修改 指定 设备 的 信息 ， 浏 览 以 及 打印 SYSOUT 数据 集 输出 ， 等 等 。 

REXX 语言 的 一 大 优势 就 是 易于 编写 自动 化 脚本 ， 把 系统 管理 员 从 一 些 重复 性 的 日 
常 维护 工作 中 解放 出 来 。 可 以 说 ，REXX 5 SDSF 的 交互 很 好 地 结合 了 SDSF 的 强大 功 
EU REXX 的 简单 易 用 ， 使 主机 工作 人 员 受 益 匪 浅 。 

要 在 REXX 程序 中 执行 SDSF 命令 ， 首 先 要 切换 到 特定 的 宿主 环境 SDSF 之 下 。 当 
JR. 如 果 之 前 SDSF 宿主 环境 不 在 系统 宿主 环境 表 之 中 , 还 需要 将 其 加 入 宿主 环境 表 内 ， 
如 下 所 示 。 


rc = isfcalls('ON', SSTYPE-JES2) 


值得 注意 的 是 , 添加 SDSF 宿主 环境 并 没有 使 用 之 前 的 REXX SUBCOM 命令 , 而 是 
调用 了 SDSF 的 REXX 专属 命令 ISFCALLS， 而 之 后 的 SSTYPE 参数 则 指定 了 SDSF 对 
应 操作 的 是 正 S2 系统 〈 如 果 不 指定 该 参数 ， 则 由 SDSF 自行 判断 )。 通 常情 况 下 ，re 的 
返回 值 有 5 种 可 能 ， 除 了 0 代表 命令 执行 成 功 ， 返 回 值 为 1 说 明 查 询 宿主 环境 失败 ， 返 
回 值 为 2 说 明 添 加 宿主 环境 失败 ， 返 回 值 为 3 说 明 删 除 宿主 环境 失败 ， 返 回 值 为 4 则 代 
表 命令 中 有 语法 错误 。 在 具体 的 操作 上 , SDSF 为 REXX 提供 了 两 个 专用 命令 , ISFEXEC 
和 ISFACT。 前 者 通常 用 于 调用 一 个 访问 SDSF 的 面板 或 者 执行 MVS 系统 命令 ， 而 后 
者 则 用 于 执行 具体 的 操作 Caction character) 以 及 修改 SDSF 面板 中 特定 列 的 属性 。 
SDSF 为 REXX 提供 调用 某 特定 操作 面板 的 API, 而 面板 中 的 数据 则 以 表格 形式 CTI 
按照 行 和 列 格式 ) 返回 以 便于 用 户 操作 ， 示 意 如 图 6-2 所 示 。 
因此 ,用户 可 以 很 方便 地 操作 返回 的 词 干 变量 (其 格式 与 面板 相对 应 )， 取出 或 修改 
特定 的 数据 ,例如 ,通过 下 面 这 条 命令 , REXX 调用 了 SDSF 的 状态 (Status, ST) 面板 ， 
并 为 其 自动 创建 了 对 应 的 词 干 变量 。 
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Display Filter View Print 


SDSF STATUS DISPLAY ALL CLASSES LINE 1-35 (379) 
COMMAND INPUT ===> SCROLL ===> PAGE 
PREFIX-* DEST=(ALL) OWNER=* SYSNAME= 
NP JOBNAME JobID Owner Prty Queue SAff ASys Status 

IBMUSER TSU07436 IBM100S 15 EXECUTION SOW1 SOW1 

SYSLOG STC07406 +MASTER+ 15 EXECUTION SOW1 SOW1 

SDSF STC07407 STRTASK 15 EXECUTION SOW1 SOWl1 

VTAM STC07409 STRTASK 15 EXECUTION SOW1 SOW1 

TEPIP STC07410 TCPIP 15 EXECUTION SOW1 SOW1 

JMON STC07411 STCJMON 15 EXECUTION SOW1 SOW1 

RSED STC07413 STCRSE 15 EXECUTION SOW1 SOW1 

INIT STC07422 STRTASK 15 EXECUTION SOW1 SOW1 

RACF STC07426 STRTASK 15 EXECUTION SOW1 SOW1 

TN3270 STC07427 TCPIP 15 EXECUTION SOW1 SOW1 

EXITMVS 5TC07429 STCOPER 15 EXECUTION SOW1 SOW1 


Fl-HELP F2-SPLIT F3-END F4-RETURN F5-IFIND F6-BOOK 
F7-UP F8-DOWN F9-SWAP F10-LEFT F11-RIGHT F12-RETRIEVE 


图 6-2 SDSF 面板 


Address SDSF "ISFEXEC ST" 


每 列 的 数据 都 会 存放 同一 个 词 干 变量 中 ， 词 干 变量 名 并 非 图 6-2 之 中 的 列 名 ， 而 是 
用 户 预 先 在 ISFPARMS 中 定义 的 名 称 。 以 图 6-2 为 例 ， 假 定 JOBNAME 列 所 对 应 的 词 干 
变量 名 为 JNAME， 则 可 以 通过 下 面 的 语句 来 查询 特定 作业 名 的 作业 记录 。 


do ix-1 to JNAME.0 /* Loop for all rows returned */ 
if pos("RJONES",JNAME.ix) = 1 then 


当 查 询 到 指定 的 作业 后 ， 可 以 通过 ISFACT 命令 来 对 其 进行 操作 或 修改 相关 属性 。 
ISFACT 操作 需要 包括 三 部 分 内 容 : 首先 是 当前 所 在 的 面板 ， 在 这 里 指定 的 是 ST 面板 ; 
其 次 要 给 出 作业 所 在 位 置 的 词 干 变量 TOKEN.number (number 的 数值 在 本 例 中 存放 在 变 
量 这 之 中 )， 最 后 则 是 定义 了 ISFACT 命令 具体 动作 的 参数 。 示 例如 下 。 


Address SDSF "ISFACT ST TOKEN('"TOKEN.ix"') PARM(NP P)" 


其 中 最 后 的 PARM (NP P) 的 含义 是 ， 指 定 作业 所 在 行 的 NP 栏 数值 被 修改 为 P， 
实际 上 其 效果 等 同 于 图 6-3. 

很 容易 发 现 ， 本 例 中 ISFACT 执行 的 操作 实际 上 是 删除 名 为 CICSTS41 的 作业 。 最 
后 在 整个 程序 结束 之 前 ， 需 要 再 次 调用 ISFCALLS 命令 ， 从 宿主 环境 表 中 移 除 SDSF 环 


rc-isfcalls('OFF') 


通过 REXX 编写 这 样 一 个 并 不 复杂 的 脚本 ， 就 可 以 免 去 系统 管理 员 进 入 到 SDSF 的 
Status 面板 ， 人 工 寻 找 并 删除 作业 的 工作 了 ， 如 果 该 操作 步骤 相当 固定 并 且 日 常 使 用 率 
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Display Filter View Print Options Search Help 


SDSF STATUS DISPLAY ALL CLASSES LINE 1-35 (379) 


COMMAND TNPUT ===> 


PREFIX-* DEST=(ALL) OWNER=* SYSNAME= 


NP JOBNAME 
IBMUSER 
SYSLOG 
SDSF 
VTAM 
TCPIP 
JMON 
RSED 


JobiD Owner Prty Queue 2 SAff ASys Status 


TSU07436 IBM100S EXECUTION SOWi1  SOWi 
STC07406 +MASTER+ EXECUTION S0W1 SOW1 
STC07407 STRTASK EXECUTION SOW1  SOWl 
STC07409 STRTASK EXECUTION SOW1  SOWl 
STC07410 TCPIP EXECUTION SOW1 SOWl 
STC07411 STCJMON EXECUTION S0W1 SOwl 
STC07413 STCRSE EXECUTION SOW1  SOWl 


CICSTS41 STC07414 STCOPER EXECUTION SOW1 SOWi 


RACF 
TN3270 
EXITMVS 
TCAS 


Fl-HELP 
F7-UP 


极 高 的 话 ， 则 通过 REXX 5 SDSF 交互 将 任务 进行 自动 化 意义 是 显而易见 的 。 

事实 上 ，REXX 与 SDSF 交互 能 够 进行 的 操作 还 远 远 不 止 这 些 ， 其 他 常用 的 命令 与 
操作 还 有 : 使 用 ISFLOG 命令 访问 系统 日 志 ， 使 用 ISFSLASH 命令 执行 MVS 系统 命令 
等 。 更 详细 的 介绍 及 使 用 示例 ， 可 以 参阅 IBM 白皮书 SDSF Operation and Customization 


之 中 的 有 关 章 节 : 


另外 ， 如 果 需 要 语法 上 的 详细 指导 ， 可 以 直接 在 SDSF 的 命令 栏 中 输入 REXXHELP 


STC07426 STRTASK EXECUTION S0W1 SOWi 
STC07427 TCPIP EXECUTION SOW1  SOWl 
STC07429 STCOPER EXECUTION SOW1  SOWl 
STC07430 STRTASK EXECUTION SOW1  SOWi 


F2-SPLIT F3-END F4-RETURN F5-IFIND F6-BOOK 
F8-DOWN F9-SWAP F10-LEFT Fl11-RIGHT F12-RETRIEVE 


Éd6-3 SDSF 面板 操作 


Using SDSF with the REXX programming language. 


(缩写 为 REXXH)， 以 查看 非常 细致 的 在 线 帮助 ， 如 图 6-4 所 示 。 


Using REXX with SDSF 


Tab to atopic and pressF!, or pressEnter to view thetopicsin order. 


o Introduction - Search - Index- 
o Programmingpractices 
o Quick start 
o Add the DSFhog command environment 
o Issue DF commands 
- Commandsfor tabular panels(ISFEXE) 
- Logpanels (ISR.OGand ISFULOG) 
- Sash (/) commands(ISFa.A84 
- Other commands(ISFEXE) 
- Filter commands(special variables) 
- Optionscommands/special variables) 
o Takeactionsand modify columnson SDSF panels 
o Browseoutput and Print output 
o Examples 
o Diagnoseerrorsin a FEXX exec 
o Special variables 
Fi-Hep F5-Exhep F7-Up  F8-Down F10-Back F12-Cance 


图 6-4 REXXHELP 帮助 


SCROLL ===> PAGE 
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此 外 ， 如 果 用 户 希望 了 解 更 多 的 REXX 和 SDSF 交互 的 相关 知识 可 以 参考 IBM 
白皮书 Implementing REXX Support in SDSF， 其 中 详细 介绍 了 许多 REXX 5 SDSF 交 
互 的 案例 , 如 保存 SYSOUT 输出 到 PDS 数据 集 、 作 业 调 度 控制 以 及 图 形 化 显示 SDSF 
数据 等 。SDSF 已 经 支持 正 S3 系统 ，REXX/SDSF 也 在 其 中 得 到 了 广泛 应 用 ， 如 果 用 
户 使 用 的 是 正 S3 而 非 JES2 系统 的 话 ， 可 以 参考 IBM 白皮书 Using SDSF in a JES3 


Environment. 


6.6 REXX 与 FTP 的 交互 


REXX 可 以 构建 TSO FTP 命令 , 并 使 用 FTP( 文 件 传输 协议 ) 操 作 有 关 的 数据 集 、HFS 
文件 、 批 处 理 作业 、SPOOL 等 。 可 以 直接 在 REXX 中 编写 FIP 命令 ,但 是 通常 情况 下 
使 用 数据 栈 来 存放 这 些 命令 是 更 好 的 做 法 。 

下 面 的 示例 是 一 个 简单 的 REXX 与 FTP 的 交互 , 使 用 账号 密码 登录 ,随后 通过 DIR 
命令 ， 列 出 用 户 编目 中 数据 集 的 属性 。 


/* REXX */ 

QUEUE 'IBMUSER' /* INPUT USER ID HERE */ 
QUEUE '****' /* INPUT USER PSW HERE */ 
QUEUE 'DIR' 

QUEUE 'QUIT' 


X = OUTTRAP (OUTPUT.) 
ADDRESS TSO "FTP 127.0.0.1" 
DO I = 1 TO OUTPUT.0 

SAY OUTPUT.I 
END 


与 在 REXX 中 编写 并 提交 JCL 作业 相似 ， 只 需要 将 待 执 行 的 FTP 命令 预先 存 入 
数据 栈 中 ， 并 通过 OUTTRAP 函数 获取 执行 结果 。 该 REXX 脚本 的 执行 结果 如 图 6-5 

对 于 较为 复杂 的 REXX 交互 FTP 应 用 ， 还 有 另 一 种 更 为 合适 的 方式 ， 使 用 FTP 客 
户 端 应 用 编程 接口 (FTP Client API)， 它 允许 不 同 语言 编写 的 应 用 程序 向 z/OS FTP 客户 
端 发 送 FTP 子 命令 ， 并 且 如 果 应 用 程序 以 异步 的 方式 发 送 请 求 ， 则 该 程序 可 以 同时 与 多 
个 FTP Client API 实例 交互 。 除 此 以 外 ，FTP Client API 还 允许 应 用 程序 获取 包括 来 自 客 
户 端 的 消息 、FTP 服务 器 的 应 答 ， 以 及 请 求 结果 等 各 种 信息 。 

ZOS 操作 系统 从 1.6 版 本 时 开始 提供 FTP Client API, 最 先 支持 的 语言 包括 主机 汇编 
语言 、COBOL 以 及 PL/I. Zit z/OS v 1.7 的 扩展 ，FTP Client API 可 以 支持 C 语言 库 ， 
包括 C 及 C++ 编写 的 应 用 程序 都 能 够 使 用 FTP 服务 。 从 z/OS v1.8 版 本 开始 ，REXX 也 
可 以 支持 FTP Client API。 这 不 但 意味 着 ， 用 户 可 以 通过 REXX 来 调用 FTP 命令 ， 从 而 
进行 文件 的 上 传 下 载 操 作 ， 同 时 也 大 大 提升 了 OS 操作 系统 文件 上 传 /下 载 的 自动 化 能 
力 。 图 6-6 是 REXX 实现 FTP Client API 的 结构 图 。 
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220-FTPSERVE IBM FTP CS V1R12 at SOW1.DAL-EBIS.IHOST.COM, 13:45:59 on 2011-07- 
14. 

220 Connection will close if idle for more than 5 minutes. 

331 Send password please. 

230 IBM100S is logged on. Working directory is "IBMUSER.". 

227 Entering Passive Mode (127,0,0,1,4,22 

125 List started OK 

Volume Unit Referred Ext Used Recfm Lrecl BlkSz Dsorg Dsname 

VPWRKC 3390 2011/06/26 8000 PO CREXX 

VPD91C 3390 2011/05/28 4000 PO DB2.LAB.CPY 
VPWRKB 3390 2011/06/06 4000 PO DB2.LAB.DBRM 
VPD91C 3390 2011/06/26 4000 PO DB2.LAB.JCL 
VPWRKA 2011/06/10 4096 PO DB2.LAB.LOAD 
VPWRKB 2011/05/05 4000 PO DB2.LAB.MID 
VPWRKB 2011/05/05 4000 PO DB2.LAB.OBJ 
VPD91C **NONE** 4000 PO DB2.LAB.OUT 
VPWRKB 2011/06/19 4000 PO DB2.LAB.SOL 
VPWRKB 2011/06/08 4096 PS  DB2.LAB.SQLRES 
VPWRKB 2011/06/19 4000 PO DB2.LAB.SRC 
VPWRKA 2011/06/02 27904 PS  DB2.LAB.TRANFILE 
VPWRKC 2011/07/12 4000 PO JCL 

VPWRKA 2011/07/14 4000 PO REXX 

VPWRKC 2011/07/13 8000 PO REXX.JCL 

VPWRKA 2011/07/14 6160 PO SOWl.ISPF.ISPPROF 
VPD91C 2011/07/14 129 PS  SOWl.SPFLOGl.LIST 
250 List completed successfully. 


221 Quit command received. Goodbye. 
** 


应 用 程序 可 执行 模块 ET " 
一 一 1 
lr FCALFTP 会 话 | TT 每 个 FTP 客 户 端 API 会 话 都 
应 用 程序 控制 程序 块 | ~、、 对 应 一 个 UNTX 进 程 和 一 个 
直接 返回 NETP 会 话 控制 程序 块 
调用 结果 给 3 
EZAFTPKS EZAFTPKS 
的 调用 
EZAFTPKS 程序 EZAFTPKI EZAFTPKI 
FTP API 存 根 程序 上 FTP 请 求 处 理 器 FTPA P 
— PY Tea O 
EZAFTPKI 
GO J 


图 6-6 FTP Client API 的 结构 图 
REXX FTP Client API 请 求 的 格式 如 下 。 
rc = ftpapi(stem, request type, parml, parm2, ...) 


其 中 ，stem 参数 通常 是 一 个 REXX 的 词 干 变量 (Stem Variable， 指 的 是 复合 变量 的 前 半 
部 分 )， 代 表 了 某 个 特定 的 FTP Client 环境 实例 。request_type 标识 了 API 的 请 求 类 型 ， 
包括 如 下 种 类 ; 而 parmi, parm2 等 参数 的 具体 内 容 由 特定 的 请 求 类 型 决定 。 

e create: 创建 新 的 FTP Client API 词 干 变 量 。 
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e init: 初始 化 FTP Client API 环境 。 

e scmd: [58] FTP Client API 发 送 子 命令 。 

e poll: 完成 上 一 个 scmd 请 求 并 返回 执行 结果 。 

e getl find: 查找 并 从 FTP Client 返回 一 行 输出 , 这些 输出 通常 是 init, semd EX poll 
请 求 的 处 理 结果 。 

e getl copy: 与 getl find 请 求 类 似 ， 不 同 之 处 在 于 getl_copy 返回 所 有 的 输出 。 

e term: 终止 该 FTP Client 实例 。 

e set trace: 允许 /禁止 对 后 续 FTP 子 命令 的 追踪 。 

e set request timer: 设置 FTP Client API 等 待 某 个 init, semd 或 poll 命令 执行 完成 
的 时 间 值 。 

e get fcai map: 获取 FCAI MAP 结构 的 内 容 。 

rc 变量 中 存放 了 REXX FTP Client API 的 返回 值 ， 有 如 下 3 种 可 能 。 

e 小 于 0: 表示 发 生 错 误 。 

e 等 于 0: 表示 正常 执行 。 

e 大 于 0: 表示 正常 执行 ,具体 的 返回 值 又 包含 额外 信息 。 

图 6-7 展示 了 一 个 FTP Client API 程序 执行 的 主要 流程 ， 以 及 每 个 阶段 发 送 的 FTP 


Ke 
A Y 
E * init() =| scmd() em) E term() 
SUP TERR sie i 
(不 等 待 ) CRD 
A ! 
poll() 
图 6-7 FTP Client API 程序 执行 的 主要 流程 
同样 是 连接 主机 FTP 服务 器 ， 并 执行 DIR 命令 ， 下 面 是 REXX 调用 FTP Client API 
示例 。 
/* REXX */ 
TRACEID = 'Z01' 
INITSTR = '-w 300 127.0.0.1 21' /* CASE SENSITIVE! */ 


/* CREATE THE FCAI STEM. */ 

SAY 'INTIALIZE START' 

IF FTPAPI('FCAI.', 'CREATE', TRACEID) « 0 THEN DO 
SAY 'UNABLE TO CREATE THE FCAI' 
EXIT -1 

END 

/* TURN ON TRACE MODE */ 

SAY 'TRACE ON' 

RES = FTPAPI('FCAI.', 'SET TRACE', 'ON') 
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/* INITIRLIZE CONNETCTION */ 
SAY 'OPEN CONNECTION" 
RES - FTPAPI('FCAI.', 'INIT', INITSTR) 
/* ENTER THE USERID. */ 
SAY 'INPUT USER ID' 
RES - FTPAPI('FCAI.', 'SCMD', 'USER IBMUSER', 'W') 
/* ENTER PASSWORD */ 
SAY 'INPUT PSW' 
IF FCAI.FCAI RESULT - FCAI RESULT PROMPTPASS THEN DO 
RES - FTPAPI('FCAI.', 'SCMD', 'PASS ****', 'W') 
END 
/* LIST CATALOG */ 
SAY 'INPUT FTP COMMAND' 
RES = FTPAPI('FCAI.', 'SCMD', 'DIR', 'W') < 0 
/* FETCH RESULTS */ 
SAY 'DIRECTORY RESULT: ' 
RES - FTPAPI('FCAI.', 'GETL COPY', 'LINES.', 'L') 
DO I-1 TO LINES.0 
SAY LINES.I 
END 
/* QUIT */ 
SAY 'LOGOFF' 
RES - FTPAPI('FCAI.', 'SCMD', 'QUIT', 'W') 
/* TERM CONNECTION */ 
SAY 'TERMINATE FTP CONNECTION.GOODBYE.' 
RES - FTPAPI('FCAI.', 'TERM') 
SAY 'GOODBYE' 
EXIT 


最 需要 注意 的 是 ， 在 初始 化 时 参数 INITSTR， 也 即 连接 字符 串 是 区 分 大 小 写 的 ， 如 
果 没 有 注意 的 话 ， 会 造成 错误 。 如 果 发 生 错误 时 ， 需 要 进一步 了 解 各 参数 值 ， 可 以 参考 
下 面 这 段 代 码 。 


arg Stem 

say 'FTP Client API Error:' 

say ' Result -' value(stem'FCAI Result') 

say ' Status -' value(stem'FCAI Status') 

say ' IE -' value(stem'FCAI IE') 

say ' CEC -' value(stem'FCAI CEC') 

say ' ReturnCode -' value(stem' FCAI ReturnCode "J 
say ' ReasonCode =' value(stem'FCAI ReasonCode') 


正常 情况 下 ， 该 REXX 程序 的 执行 结果 如 图 6-8 所 示 。 
如 果 想 要 了 解 更 多 关于 REXX 使 用 FTP Client API 的 具体 信息 , 可 以 参考 IBM 白 皮 
Ë z/OS Communications Server IP Programmer s Guide and Reference. 
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INTIALIZE START 
TRACE ON 

OPEN CONNECTION 
INPUT USER ID 
INPUT PSW 

INPUT FTP COMMAND 
DIRECTORY RESULT: 


Volume Unit Referred Ext Used Recfm Lrecl BlkSz Dsorg Dsname 


VPWRKC 3390 2011/06/26 1 3 8000 
VPWRKC 3390 2011/10/03 4000 
VPWRKC 3390 2011/06/22 3120 
VPWRKB 3390 2011/05/12 k 32760 
VPWRKA 3390 2011/10/03 4000 
VPWRKC 3390 2011/07/13 8000 
VPWRKB 3390 2011/06/26 125 1250 
VPWRKA 3390 2011/10/03 6160 
VPD91C 3390 2011/10/03 3 

VPWRKC 3390 2011/09/04 

VPWRKB 3390 2011/09/04 5 

LOGOFF 

TERMINATE FTP CONNECTION.GOODBYE. 

GOODBYE 


kkk 


图 6-8 REXX 执行 结果 


CREXX 

JCL 

LOG.MISC 

MIGLIB 

REXX 

REXX.JCL 
REXX.PERFORM2.LIST 
SOW1.ISPF.ISPPROF 
SOW1.SPFLOG1.LIST 
SOW1.SPFTEMP2.CNTL 
SOW1.SRCHDSL.LIST 


6.7 REXX 5 IDCAMS 的 交互 


集成 编目 访问 方法 服务 (IDCAMS ) Æ VSAM AMS 实用 程序 的 名 称 ， 是 DFSMSdfp 
提供 的 最 重要 的 功能 之 一 。IDCAMS 可 以 用 来 维护 VSAM 数据 集 以 及 管理 编目 ， 同 时 


也 可 以 对 非 VSAM 数据 集 进 行 操 作 。 
IDCAMS 的 主要 命令 包括 : 


e DEFINE: 用 于 定义 编目 、 别 名 、 数 据 集 、 次 索引 数据 集 和 路 径 等 。 
e DELETE: 用 于 删除 DEFINE 命令 所 建 的 编目 、 数 据 集 、 次 索引 数据 集 和 路 径 。 
e ALTER: 用 于 更 改编 目 中 有 关 数 据 集 属性 的 记录 或 原先 所 设 定 的 参数 。 


e BLDINDEX: 用 于 建 次 索引 数据 集 。 
e LISTCAT: 用 于 显示 编目 中 的 信息 。 
e PRINT: 用 于 显示 VSAM 数据 集 的 记录 。 


e REPRO: 用 于 复制 数据 集 记 录 、 产 生 编目 的 备用 数据 集 、 将 顺序 数据 集 转换 成 
VSAM 数据 集 ;或 者 将 VSAM 数据 集 转换 成 顺序 数据 集 、 将 记录 写 入 VSAM 数 


据 集 和 重组 VSAM 数据 集 的 组 织 。 


e EXPORT: 用 于 将 VSAM 数据 集 或 者 编目 中 的 记录 进行 导出 操作 。 
e IMPORT: 用 于 将 利用 EXPORT 命令 所 产生 的 记录 导入 VSAM 数据 集 。 


1 于 IDCAMS 命令 在 TSO 宿主 环境 下 可 以 直接 被 调 月 


H, 


因此 编写 REXX 脚本 可 以 


H VSAM 数据 集 及 编目 的 管理 操作 带 来 便利 。 开 发 者 可 以 通过 REXX 编写 IDCAMS f 
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令 ， 并 使 用 OUTTRAP 函数 获取 命令 的 执行 结果 ， 甚 至 采用 PARSE 函数 以 及 EXECIO 
命令 ， 调 整 执 行 结果 的 格式 ， 并 将 其 存放 到 指定 的 数据 集中 。 

在 下 面 的 示例 中 ， 通 过 REXX 直接 执行 IDCAMS 的 LISTCAT 命令 ， 查 看 数据 集 
IBMUSER.JCL 所 在 的 编目 名 称 。 

/* REXX */ 

X = OUTTRAP (OUTPUT.) 

SAY 'START TO USE IDCAMS LISTCAT:' 

"LISTCAT ENTRIES('IBMUSER.JCL')" 

SAY 'COMMAND RESULT:"' 

DOI-1 TO OUTPUT.O 

SAY OUTPUT.I 
END 


其 中 ， 复 合 变量 OUTPUT. 存 放 了 OUTTRAP 获取 的 LISTCAT 命令 执行 结果 ， 如 果 
命令 执行 成 功 ， 存 入 的 即 是 数据 集 IBMUSER.JCL 所 在 的 编目 信息 ; 如 果 命 令 执 行 失败 ， 
存 入 的 则 是 错误 信息 。 

该 脚本 的 执行 结果 如 下 ， 如 有 需要 ， 也 可 以 不 直接 显示 执行 结果 ， 而 是 将 复合 变量 
中 的 内 容 写 入 到 指定 数据 集中 长 期 保存 。 

START TO USE IDCAMS LISTCAT: 

COMMAND RESULT: 


NONVSAM ------- IBMUSER.JCL 
IN-CAT --- MASTERV.CATALOG 


kkk 


在 通常 情况 下 , 提交 作业 的 方式 来 调用 IDCAMS 实用 程序 较为 常用 , 在 REXX 中 编 
写 JCL 作业 ,并 通过 TSO/E SUBMIT 命令 提交 的 例子 在 之 前 的 示例 已 经 出 现 过 一 次 , 本 


例 中 使 用 的 也 是 同样 的 方法 。 
通过 REXX 以 Batch 的 方式 执行 IDCAMS 命令 的 示例 代码 如 下 。 
/* REXX */ 


QUEUE "//LISTCA JOB NOTIFY=&SYSUID " 
QUEUE "//STEPl EXEC PGM-IDCAMS " 
QUEUE "//SYSPRINT DD SYSOUT-* " 
QUEUE "//SYSIN DD * " 
QUEUE " LISTCAT ENTRIES('IBMUSER.JCL') " 
QUEUE "/* " 
X = OUTTRAP (OUTPUT.) 
ADDRESS TSO "SUBMIT * " 
DO I = 1 TO OUTPUT.0 
SAY OUTPUT.I 
END 
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执行 该 REXX 脚本 时 ，JES 会 将 作业 执行 的 返回 码 显 示 在 屏幕 上 。 可 以 在 SDSF 中 
查看 其 具体 信息 ， 其 部 分 内 容 如 图 6-9 所 示 。 


Display Filter View Print Options Search Help 


SDSF OUTPUT DISPLAY LISTCA JOB06871 DSID 4 LINE 12 COLUMNS 02- 81 
COMMAND INPUT ===> SCROLL ===> PAGE 
CPU: 0 HR 00 MIN 00.01 SEC 0 HR 00 MIN 00.00 SEC 
VIRT: 476K SYS: 260K EXT: SYS: 11080K 
IEF375I JOB/LISTCA /START 2011193.0814 
IEF033I JOB/LISTCA /STOP 2011193.0814 
CPU: 0 HR 00 MIN 00.01 SEC 0 HR 00 MIN 00.00 SEC 
IDCAMS SYSTEM SERVICES TIME: 08:14:20 


LISTCAT ENTRIES('IBMUSER.J)CL') 
NONVSAM IBMUSER.JCL 
IN-CAT --- MASTERV.CATALOG 
IDCAMS SYSTEM SERVICES TIME: 08:14:20 
THE NUMBER OF ENTRIES PROCESSED WAS: 


ALIAS - 
CLUSTER --- 


PAGESPACE 
PATH - 


USERCATALOG - 
TAPELIBRARY - 
TAPEVOLUME 


THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0 
IDCO0011 FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0 


IDC00021 IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0 


ek eode eoeeeeeeeeeee** BOTTOM OF DATA **ddckoiokoekkeoee eee deer 


Fl-HELP F2-SPLIT F3-END FA-RETURN F5-IFIND F6-BOOK 
F7-UP F8-DOWN F9-SWAP FlO-LEFT Fl1-RIGHT F12-RETRIEVE 


图 6-9 SDSF 中 查看 JCL 作业 结果 


另外 ， 也 可 以 通过 REXX 启动 AMS (Access Method Service) 的 交互 面板 ， 并 在 其 
中 输入 IDCAMS 命令 。 一 个 简单 示例 的 代码 如 下 。 


/* REXX */ 
ADDRESS LINK 'IDCAMS' 


执行 该 REXX 脚本 即 可 进入 IDCAMS 系统 服务 面板 ， 结 果 如 图 6-10 所 示 。 
使 用 REXX 程序 调用 AMS 面板 ,除了 LINK 指令 以 外 ,也 可 以 使 用 ATTACH、LOAD 
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或 CALL 指令。 其 他 语言 编写 的 程序 同样 可 以 调用 AMS 面板 ， 如 PLI SE. 


LISTCAT LEVEL (IBMUSER) 
IDCAMS SYSTEM SERVICES 
TIME: 10:33:5 


0 07/11/11 


MASTERV.CATALOG 


IBMUSER 


IN-CAT --- MASTERV. 
-SOW1 .SPFLOG1 .LIST 
-CATALOG 
-SOW1.SPFTEMPO.CNTL 

IN-CAT --- MASTERV. 


IDCAMS SYSTEM SERVICES 
TIME: 10:33:5 
0 07/11/11 


MASTERV.CATALOG 


PAGE i 


LISTING FROM CATALOG -- 


-JCL 
-CATALOG 
-REXX 
-CATALOG 
-REXX .JCL 
-CATALOG 


-SOW1.ISPF.ISPPROF 


CATALOG 


CATALOG 


PAGE 4 


LISTING FROM CATALOG -- 


THE NUMBER OF ENTRIES PROCESSED WAS: 


ALIAS -- 


USERCATALOG - 
TAPELIBRARY - 


THE NUMBER 


OF PROTECTED ENTRIES SUPPRESSED WAS 0 


图 6-10 IDCAMS SYSTEM SERVICE 面板 


关于 程序 调用 AMS 面板 的 具体 信息 ， 参 看 IBM 白皮书 DFSMS Access Method 
Services for Catalogs 中 Invoking Access Method Services from Your Program 的 部 分 。 


6.8 REXX 5 TCP/IP 的 交互 


REXX 提供 了 丰富 的 Socket API， 它 是 一 种 通用 灵活 的 底层 套 接 字 编程 接口 ， 在 
TCP/IP 传输 协议 中 使 用 广泛 。 套 接 字 是 两 个 应 用 程序 通信 连接 的 终端 标识 ， 套 接 字模 型 


建立 在 打开 / 读 出 / 写 入 /关闭 模式 上 。 


例如 ， 典 型 的 面向 连接 的 协议 〈 如 TCP) 的 交互 方 
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式 通常 为 “三 次 握手 ”的 模式 ， 如 图 6-11 所 示 。 


Socket() 


1 1 
seo | | aeo | 
| boim ! = + Aem | 

FR 1 
| = Send() L E € : 
| VU L amnem NAE 
" T | " Close() } 

Dim pos 


图 6-11 TCP 三 次 握手 示意 图 


通过 SOCKET API, REXX 也 可 以 和 通用 语言 (C、Java) 一 样 ， 在 所 提供 的 TCP/IP 
环境 下 进行 有 关 套 接 字 的 编程 。 调 用 套 接 字 接口 的 语法 如 下 。 


ResultString = SOCKET (Subfunction, parameters) 


其 中 Subfunction. 即 为 所 调用 的 套 接 字 服 务 , parameters 为 对 应 服务 所 需要 的 参数 。 
这 里 需要 注意 的 是 , 在 这 种 套 接 字 服务 的 调用 中 , REXX 的 特殊 变量 RC 与 调用 执行 结 
果 并 不 相关 ， 这 是 其 与 大 多 数 服务 调用 的 不 同 之 处 。SOCKET API 的 调用 结果 是 以 字 
符 串 的 形式 返回 ， 并 且 该 结果 字符 串 以 空格 分 隔 开 来 ， 使 返回 的 字符 串 可 被 REXX 的 
处 理 函 数 进行 解析 ， 从 而 可 从 ResultString 中 解析 出 实际 的 返回 码 以 及 数据 或 者 错误 
B E. 

通常 来 说 ， 返 回 串 的 首 值 即 是 调用 返回 码 ， 在 返回 码 为 零 的 情况 下 ， 后 续 值 即 为 调 
用 具体 的 套 接 字 服 务 所 返回 的 信息 若 返 回 值 不 为 零 ， 则 返回 串 的 第 二 值 为 发 生 的 错误 
名 称 ， 后 续 值 即 为 错误 信息 。 下 例 为 SOCKET 服务 返回 信息 的 示例 。 

SOCKET ('GetHostId') 

/* 调 用 正常 返回 串 '0 9.4.3.2'*/ 

SOCKET ('Recv',socket) 

/* 出 错 返回 串 为 '11C2 EWOULDBLOCK Problem on non-blocking socket'*/ 


通过 REXX SOCKET 可 以 完成 的 操作 通常 有 如 下 几 大 类 : 

e Socket 集合 处 理 ， 如 Initialize 用 于 定义 一 个 Socket 集合 。 

e 创建、 连接、 更改、 关闭 Socket， 例 如 Socket, Bind 等 。 

e 交换 数据 ， 通 常 的 数据 交互 操作 ， 例 如 Read/Write, Recv/Send 等 。 

e 解析 名 称 或 标识 符 ， 例 如 前 面 所 提 到 的 GetHostId 返回 宿主 的 IP 地 址 等 。 

此 外 ，REXX 与 TCP/IP 的 交互 还 包括 NESTART 与 FTP 方式 ，NESTART 是 对 应 的 
TSO 管理 命令 ， 可 通过 "STACK" 参 数 将 输出 放 入 REXX 数据 栈 ， 并 且 不 包含 对 应 的 头 部 
信息 (这 是 OUTTRAP 所 不 具备 的 )。 
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6.9 REXX 与 USS 的 交互 


本 书 第 1 章 中 提 到 了 USS 脚本 的 使 用 。 事 实 上 ， 在 ZOS UNIX 中 ， 同 样 可 以 使 用 
REXX 程序 完成 相应 的 功能 。TSO/E REXX 功能 的 z/OS UNIX 扩展 集 使 得 用 户 的 REXX 
程序 可 以 直接 访问 z/OS UNIX 的 可 调用 服务 ， 执 行 相应 的 操作 或 完成 对 应 的 任务 。 

REXX 的 z/OS UNIX 扩展 称 为 syscall 命令 集 , 其 中 的 命令 名 称 都 对 应 其 具体 的 可 调 
服务 ， 例 如 access〈 判 断 访问 文件 权限 )、chmod 〈 更 改 文件 权限 ) 以 及 chown 〈 修 改 文 
件 的 所 有 人 或 所 有 组 ) 等 。syscall 命令 集 必 须要 得 到 z/OS UNIX 系统 服务 的 支持 ， 和 否则 
使 用 syscall 命令 集 的 REXX 程序 是 无 法 执行 的 。 

此 外 , 系统 还 提供 了 一 套 ZOS UNIX REXX 功能 函数 集 , 包含 了 诸如 标准 REXX IO 
以 及 一 些 公共 文件 服务 和 环境 变量 的 访问 方法 ， 从 而 进一步 扩展 了 OS UNIX 环境 下 
REXX 语言 的 可 用 性 。 这 里 同样 要 注意 的 是 ， 所 有 的 ZOS UNIX REXX 功能 函数 〈 除 
bpxwunix() 和 syscall0 以 外 ) 都 只 能 运行 于 z/OS UNIX 环境 之 下 ; 然而 调用 了 syscall 命 
SHI REXX 程序 却 可 以 运行 于 主机 系统 中 TSO/E、MVS、zOS Shell 等 多 种 环境 之 下 ( 当 
然 前 提 是 系统 安装 有 z/OS USS). 

在 z/OS UNIX 系统 中 ， 带 有 扩展 ZOS UNIX 扩展 功能 集 的 REXX 程序 除了 能 够 在 
MVS 宿主 环境 下 运行 外 ， 还 能 够 被 如 下 这 几 个 宿主 环境 支持 。 


1. SYSCALL 

SYSCALL 宿主 环境 支持 TSO/E 或 者 MVS 批 处 理 环境 下 运行 的 REXX 程序 调用 
syscall 命令 集 。 该 宿主 环境 可 用 于 支持 任何 调用 syscall 命令 的 REXX 程序 。 并 且 无 论 是 
在 UNIX 环境 还 是 非 UNIX 环境 (TSO/MVS) F, SYSCALL 宿主 环境 都 是 可 用 的 ， 此 
时 ， 可 以 通过 syscalls0 功 能 函数 控制 SYSCALL 宿主 环境 ， 命 令 如 下 : 

syscalls ('ON') /* 建 立 SYSCALL 环境 */ 

syscalls('OFF') /* 结 束 SYSCALL 环境 */ 

syscalls('SIGON')  /* 建 立信 号 接口 例 程 */ 

syscalls('SIGOFF') /* 删 除 信 号 接口 例 程 */ 


下 例 中 的 REXX 程序 ， 其 功能 为 显示 当前 根 目录 的 所 有 信息 并 输出 到 显示 终端 上 ， 
程序 代码 都 以 call syscalls 'ON' 开 头 ， 用 以 初始 化 syscall 宿主 环境 。 
/* REXX */ 


call syscalls 'ON' 


address syscall 


'readdir / root. ' 
do i-1 to root.0 
say root.i 


end 
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2. SH 

SH 宿主 环境 支持 直接 在 z/OS UNIX 环境 下 运行 的 REXX 程序 调用 syscall 命令 集 。 
只 有 当 REXX 程序 是 在 Shell 中 运行 ,或 者 被 男 一 个 程序 通过 EXECO 命 令 调用 的 情况 下 ， 
REXX 程序 才能 使 用 到 SH 宿主 环境 。 这 时 ， 由 于 SH 是 默认 的 初始 宿主 环境 ， 并且 在 其 
初始 化 的 同时 也 初始 化 了 syscall 命令 集 ， 因 此 此 时 REXX 程序 可 以 直接 调用 syscall 命 
令 集 ， 而 不 必 预 先 调用 syscallsCON) 命 令 ， 因 为 此 时 syscall 命令 (如 chmod) 将 被 自动 
解释 为 z/OS Shell 命令 得 到 执行 ， 其 形式 如 下 。 


/bin/sh -c shell command 


在 REXX 程序 中 调用 的 z/OS Shell 命令 可 以 使 用 到 所 有 当前 打开 的 文件 标识 符 以 进 
行文 件 操作 ， 同 时 所 有 环境 变量 对 它们 也 是 可 用 的 。 不 过 ,由 于 Shell 命令 事实 上 是 运行 
在 shell 进程 中 而 非 REXX 程序 的 进程 中 ， 所 以 其 无 法 对 REXX 环境 进行 操作 。 举 例 来 
说 ， 在 REXX 程序 中 调用 'cd /这 一 Shell 命令 是 无 法 改变 REXX 进程 本 身 的 路 径 的 。 

另外 值得 一 提 的 是 ， 当 一 个 REXX 程序 从 z/OS Shell 或 男 一 程序 中 开始 运行 , SH 和 
SYSCALL 宿主 环境 都 会 被 自动 初始 化 ， 使 其 对 REXX 程序 可 用 ; 而 当 REXX 程序 从 
TSO/E 或 者 MVS 批 处 理 环 境 下 运行 时 ， 只 有 SYSCALL 宿主 环境 是 可 用 的 。 

z/OS UNIX REXX 扩展 功能 函数 集 扩展 了 z/OS 的 相关 功能 (如 标准 VO 操作 等 )， 
除去 bpxwunix0 和 syscall0 外 ， 其 他 z/OS UNIX REXX 只 能 运行 于 z/OS UNIX 环境 中 。 
z/OS REXX 功能 函数 同样 可 通过 子 例 程 调用 的 方式 实现 。 

下 面 示例 中 的 bpxwunix 子 例 程 的 作用 和 sh —c 相似， 通过 将 单一 命令 传递 给 shell 
进行 运行 。 bpxwunix0 功 能 函数 的 作用 是 运行 一 个 shell 命令 ,并 提供 可 选 的 (标准 输入 / 
输出 ) 选项 。 这 里 通过 DD 名 SYSTSPRT (由 对 应 的 JCL 作业 提供 的 ) 指定 了 程序 处 理 


后 的 输出 位 置 。 
/* REXX */ 
/* Procedure: USSCMD ef 
/* Description: Run USS shell command */ 
/* Format is: usscmd uss_cmd x 
Trace O 


Parse Arg uss cmd 
Call Bpxwunix uss cmd,, "DD:SYSTSPRT" 
If result«»0 Then Say "Rc("!!result!!")" 


Exit result 


3. TSO 

TSO 宿主 环境 可 以 在 z/OS Unix 中 直接 使 用 ， 因 此 调用 了 TSO/E 命令 (包括 TSO/E 
命令 、CLIST 以 及 REXX 程序 ) 的 REXX 程序 可 以 在 z/OS UNIX 系统 中 正常 运行 。 启 
用 TSO 宿主 环境 的 REXX 语句 如 下 。 


address tso [command] 


系统 将 在 另 一 个 单独 的 地 址 空间 中 开启 一 个 临时 的 TSO 进程 ( 称 为 TSO TMP)， 以 
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支持 REXX 程序 中 所 有 TSO 命令 的 执行 。 该 TSO 进程 从 REXX 程序 执行 第 一 条 TSO/E 
命令 时 启动 ， 当 所 有 TSO/E 命令 都 执行 完毕 后 ， 该 临时 进程 将 自动 关闭 ， 可 以 使 用 Unix 
Shell 命令 ps 来 查看 这 个 进程 的 当前 状况 。 如 果 在 执行 某 条 TSO/E 命令 时 TSO 进程 异常 
结束 ， 则 该 命令 会 执行 失败 〈 返 回 的 错误 码 为 16)， 而 之 后 的 TSO/E 命令 会 在 新 开启 的 
TSO 进程 中 继续 执行 。 

同样 必须 要 注意 ， 由 于 TSO/E 命令 并 不 在 REXX 程序 进程 中 执行 ， 因 此 无 法 对 
REXX 环境 进行 操作 ， 反 之 亦 然 , 在 REXX 进程 中 执行 的 其 他 REXX 语句 或 UNIX 命令 
也 不 能 同样 对 TSO TMP 进程 有 任何 修改 。 

大 多 数 的 TSO/E 命令 使 用 TGETO 函 数 来 读 取 输 入 的 参数 和 内 容 ， 而 输入 的 数据 源 
首先 是 当前 数据 栈 ， 随 后 才 是 REXX 程序 标准 IO 数据 流 。 数 据 栈 中 的 所 有 内 容 都 会 被 
传递 到 REXX 程序 ， 无论 其 是 否 真正 会 处 理 这 些 数据 ， 也 就 是 说 ， 当 TSO/E 执行 完毕 后 

所 有 TSO/E 命令 都 会 通过 标准 输出 流 来 返回 结果 或 进行 输出 ， 同 样 可 以 使 用 
OUTTRAPO 函 数 来 捕获 返回 的 内 容 。REXX 保留 变量 RC 依然 存放 程序 的 返回 代码 ， 如 
果 返 回 值 为 -3， 通 常 说 明 TSO 命令 没有 被 找到 ; 如 果 返 回 值 为 16， 说 明 执 行 TSO 命令 
的 进程 发 生 异 常 ， 其 他 的 返回 负 值 均 为 Abend Code， 可 以 通过 查询 相关 资料 来 确定 其 对 
应 的 具体 错误 原因 。 

下 面 的 一 系列 例子 展示 了 在 ZOS UNIX 下 REXX 程序 是 如 何 执行 TSO 命令 的 ， 可 
以 看 到 这 与 REXX 程序 在 TSO 环境 内 的 操作 并 无 太 大 区 别 。 


/* 执行 TSO Time 命令 */ 


address tso 'time' 


/* 通过 outtrap () 获取 执行 结果 并 输出 */ 
call outtrap out. 

address tso 'listc' 

do i-1 to out.0 

say out.i 

end 


/* 在 TSO/E 环境 中 运行 一 个 REXX 程序 */ 
address tso 
"alloc fi(sysexec) da('schoen.rexx') shr" 


"myexec" 


实际 上 ，REXX 作为 系统 维护 不 可 缺少 的 工具 ， 在 USS 中 的 使 用 是 非常 频繁 的 ， 下 
面 的 示例 中 ，REXX 程序 读 取 并 打印 系统 的 根 目录 。 

J* rexx */ 

call syscalls 'ON' 


address syscall 


'readdir / root." 
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do i-1 to root.0 
say root.i 


end 


下 面 的 示例 中 ，REXX 程序 打开 并 读 取 了 一 个 文件 。 


/* rexx */ 

call syscalls 'ON' 
address syscall 
path-'/u/schoen/my.file' 
'open (path)', 


O rdonly, 
000 
if retval--1 then 
do 
say 'file not opened, error codes' errno errnojr 
return 
end 
fd-retval 


'read' fd 'bytes 80" 


下 面 的 示例 中 ，REXX 程序 打开 一 个 文件 并 向 其 中 写 入 内 容 。 


/* rexx */ 
call syscalls 'ON' 
address syscall 
path-'/u/schoen/my.file' 
'open' path, 
O rdwr*O creat4O trunc, 
660 
if retval--1 then 
do 
say 'file not opened, error codes' errno errnojr 
return 
end 
fd-retval 
rec-'hello world' || esc n 
'write' fd 'rec' length(rec) 
if retval--1 then 
say 'record not written, error codes' errno errnojr 
'close' fd 


更 多 有 关 REXX 5i z/OS UNIX System Services 交互 的 内 容 ， 包 括 syscall 命令 集 和 
ZOS UNIX REXX 函数 的 具体 语法 描述 , 以 及 其 他 在 USS 中 使 用 REXX 的 实例 , 可 以 参 
阅 IBM 白皮书 Using REXX and z/OS UNIX System Services。 
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6.10 REXX 与 CICS 的 交互 


早期 ，CICS 对 于 REXX 的 支持 由 两 个 单独 的 产品 实现 ， 分 别 是 REXX Development 
System for CICS/ESA 和 REXX Runtime Facility for CICS/ESA。 现在， 这 两 个 产品 都 已 经 
被 整合 到 CICS Transaction Server 中 。 

在 CICS TS 上 运行 的 REXX 程序 可 以 使 用 以 下 宿主 环境 。 

e REXXCICS: 默认 的 REXX/CICS 宿主 环境 。 

e CICS: 执行 CICS 命令 (如 SEND 命令 、RECEIVE 命令 ) 时 使 用 的 宿主 环境 。 

e EXECDB2: 执行 DB2 命令 (如 DISPLAY 命令) 时 使 用 的 宿主 环境 。 

e EXECSQL: 通过 CICS/DB2 接口 执行 SQL 语句 (如 SELECT) 时 使 用 的 宿主 
环境 。 
EDITSVR: 创建 EDIT 会 话 使 用 的 宿主 环境 。 

e FLSTSVR: 执行 文件 列表 实用 程序 CFile List Utility) 相关 命令 时 ， 使 用 的 宿主 

环境 。 

e RFS: 执行 REXX 文件 系统 (REXX File System). 命令 时 使 用 的 宿主 环境 。 

e RLS: 执行 REXX 列表 系统 (REXX List System). 命令 时 使 用 的 宿主 环境 。 

REXX/CICS 为 REXX Development System 提供 的 主 接口 程序 为 CICREXD, 为 REXX 
Runtime Facility (主要 用 于 在 CICS Region 中 加 载 调用 REXX 程序 ) 提供 的 主 接口 程序 
为 CICREXR。 每 一 个 REXX 程序 都 在 单独 的 CICS Task 下 运行 ， 而 嵌 套 的 REXX 程序 
则 在 其 父 程序 所 在 的 CICS Task 下 运行 。 使 用 GETVERS 命令 可 以 判断 某 个 REXX 程序 
的 运行 环境 是 REXX Development System 还 是 REXX Runtime Facility. 


1. 启动 REXX 程序 

在 CICS 上 启动 一 个 REXX 程序 有 许多 种 方法 ， 最 常用 的 是 通过 终端 直接 输入 ， 就 
像 平 时 输入 Transaction ID 直接 运行 一 个 与 之 关联 的 程序 一 样 。 

CICS 通过 Transaction ID 绑 定 程序 来 决定 执行 哪 一 个 程序 ， 而 REXX/CICS 通过 由 
DEFTRNID 命令 创建 的 一 张 表 ,将 Transaction ID 和 REXX 程序 关联 到 一 起 .REXX/CICS 
默认 的 Transaction ID 是 REXX， 而 其 对 应 的 默认 REXX 程序 为 CICRXTRY。 即 如 果 在 
CICS 屏幕 中 输入 REXX, CICRXTRY 程序 则 被 启动 。 如 果 在 Transaction ID REXX 之 后 
还 跟随 了 其 他 参数 ， 如 “REXX MYEXEC AAA”， 则 名 为 MYEXEC 的 REXX 程序 会 被 
启动 ， 而 AAA 则 会 作为 参数 传 入 该 程序 中 。 

另 一 种 调用 REXX 程序 的 方式 是 通过 使 用 CICS START 命令 。 通 过 START 命令 确 
定 Transaction ID， 随 后 通过 REXX/CICS 关联 表 确 定 被 调用 的 REXX 程序 。 当 这 个 被 调 
程序 指定 为 CICRXTRY 时 , 跟随 在 CICS START 命令 后 的 第 一 个 参数 将 会 作为 实际 被 
启动 的 REXX 程序 ， 如 “START MYEXEC AAA”， 实 际 上 启动 的 是 MYEXEC 程序 ， 而 
AAA 作为 参数 传 入 。 如 果 START 命令 后 没有 跟 任何 参数 , 则 依然 启动 CICRXTRY 程序 。 
当 该 被 调用 程序 被 指定 为 CICRXTRY 以 外 的 程序 时 , 则 所 有 CICS START 命令 后 的 内 容 


~i 


109 


EH 


大 型 主机 系统 管理 REXX 编程 详解 


都 会 作为 参数 传 入 被 调用 的 REXX 程序 。 

其 他 启动 REXX 程序 的 方法 还 有 : 使 用 CICS LINK 或 XCTL 命令 ; 通过 
OfficeVision/MVS 调用 REXX 程序 等 。 读者 如 果 有 兴趣 ， 可 以 参阅 IBM 白皮书 REXX for 
CICS/ESA RIV1 Guide and Reference， 以 了 解 更 多 内 容 。 


2. 装载 REXX 程序 
当 系 统 查 找 并 装载 一 个 REXX 程序 时 ， 会 按 以 下 步 又 操作 : 

(1) 在 内 存 中 搜索 是 否 有 已 经 通过 EXECLOAD 命名 装载 完毕 的 该 REXX 程序 ， 如 
果 有 的 话 ， 则 直接 使 用 该 程序 的 副本 。 

(2) 如 果 在 内 存 中 没有 找到 , 则 系统 会 查找 用 户 当前 的 RFS 目录 下 是 否 有 相关 REXX 
程序 。RFS 的 全 称 是 REXX File System, 是 基于 VSAM 的 文件 系统 , 可 以 由 REXX/CICS 
提供 ， 也 可 以 由 MVS 的 分 区 数据 集 支 持 。RFS 目录 可 以 通过 REXX/CICS 的 CD 命令 来 
定义 。 

G) 如 果 依 然 没 有 找到 ， 则 系统 会 查找 用 户 通 过 REXX/CICS PATH 命令 定义 的 Path 


路 径 。 
(4) 如 果 用 户 是 授权 用 户 (authorized user)， 则 系统 会 去 查找 CICS 的 启动 JCL 文件 
中 CICAUTH 参数 指定 的 数据 集 ， 如 果 在 该 数据 集中 找到 对 应 的 REXX 程序 ， 则 将 其 装 
载 入 内 存 。 

(5) 如 果 通 过 之 前 的 路 由 仍 未 找到 对 应 的 程序 ， 则 系统 会 依次 查找 CICEXEC 和 
CICUSER 参数 对 应 的 数据 集 ， 如 果 依 然 没 有 找到 ， 则 返回 错误 码 。 


3. 编辑 REXX 程序 
如 果 安 装 了 REXX Development System 的 话 ， 则 用 户 可 以 通过 REXX/CICS 提供 的 
编辑 器 在 CICS 中 编辑 REXX 程序 。 当 然 如 果 REXX 程序 存放 在 MVS 的 分 区 数据 集中 
的 话 ， 也 可 以 通过 ISPF/PDF 编辑 器 在 TSO 环境 下 进行 编写 或 修改 ， 就 如 本 书 的 绝 大 部 
分 章节 中 介绍 的 一 样 。 


4. 定义 用 户 自 定义 命令 

在 TSO 环境 下 ， 将 REXX 程序 放 在 系统 库 (SYSPROC 或 SYSEXEC) 中 的 话 ， 可 
以 通过 在 命令 栏 中 直接 输入 该 脚本 名 称 的 方式 来 隐 式 调用 REXX 程序 ， 就 像 输 入 TSO 
命令 一 样 〈 详 见 第 8 章 )。 

类 似 地 ， 在 CICS 中 ， 如 果 用 户 想 要 如 同 执行 REXX/CICS 命令 一 样 直 接 调 用 某 个 
REXX 程序 的 话 ， 可 以 通过 DEFCMD 命令 来 定义 自己 的 REXX/CICS 自 定义 命令 。 


5. 伪 会 话 交易 (Pseudo-Conversational) 支持 

伪 会 话 交 易 是 CICS 的 重要 特性 之 一 ， 允 许 客户 端 与 服务 器 之 间 以 异步 的 方式 交互 ， 
从 而 节省 了 不 必要 的 等 待 时 间 ， 提 高 了 系统 性 能 。 图 6-12 是 关于 会 话 (conversational) 
交易 和 伪 会 话 (pseudo-conversationaD 交易 的 过 程 比较 。 

CICS 的 伪 会 话 特性 也 能 够 支持 REXX， 通 过 使 用 CICS 的 RETURN TRANSIDO 命 
令 就 可 以 返回 对 应 的 Transaction ID 。 如 果 要 使 用 伪 对 会 话 特 性 ， 首 先 需要 通过 
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REXX/CICS 的 PSEUDO 命令 将 伪 会 话 模式 开启 : 


PSEUDO ON 


会 话 模式 伪 会 话 模式 
启动 
发 送 MAP 


F 7| aus 返回 TRANID(ABCD) 
E 无 须 等 竺 
t ABCD 


接收 MAP px 
o 出 E 发 送 MAP 
f 发 送 MAP 终端 返回 TRANID(ABCD) 


等 待 
S 无 须 等 竺 
Nu S 接收 MAP -一 一 ue ue 
发 送 MAP 接收 MAP 
返回 


发 送 MAP 
返回 TRANID(ABCD) 


图 6-12 会话 交易 和 伪 对 话 交易 对 比 


该 命令 一 旦 执行 , REXX 程序 将 立即 切换 到 伪 会 话 模式 ，CICS 会 执行 所 有 的 文件 及 
数据 库 修改 ， 随 即 清空 所 有 下 一 伪 会 话 终端 会 读 取 的 非 共享 GETMAIN 域 。 伪 会 话 模式 
的 开启 和 关闭 是 暂时 的 ， 只 在 一 个 REXX 程序 (包括 其 嵌 套 子 程序 ) 的 执行 范围 内 起 作 
用 。 当 前 REXX 程序 结束 运行 后 ， 伪 会 话 模式 又 会 恢复 到 其 初始 设置 的 状态 。 如 果 要 改 
变 伪 会 话 模式 的 初始 状态 ， 可 以 使 用 SETSYS PSEUDO 命令 。 


6. 调用 DB2 接口 

REXX/CICS DB2 接口 提供 了 使 用 REXX 程序 执行 SQL 语句 以 及 DB2 命令 的 一 系列 
支持 。 其 中 , SQL 语句 是 动态 执行 的 。 而 DB2 命令 则 是 通过 使 用 DB2 IFI (Instrumentation 
Facility Interface) 来 调用 的 。 通 过 预先 定义 好 的 REXX 变量 ，REXX/CICS DB2 接口 将 
SQL 语句 和 DB2 命令 执行 的 结果 返回 给 用 户 。 

如 果 要 将 SQL 语句 或 DB2 命令 嵌入 REXX 程序 ， 需 要 切换 到 相应 的 宿主 环境 。 对 
于 SQL 语句 ， 需 要 预先 切换 到 EXECSQL 宿主 环境 ;而 对 于 DB2 命令 ， 则 需要 预先 切 
换 到 EXECDB2 宿主 环境 。 

(1) 执行 SQL 语句 

在 EXECSQL 宿主 环境 下 ， 不 是 所 有 的 SQL 语句 都 可 以 直接 执行 。 下 列 SQL 语句 
就 不 能 在 此 环境 下 使 用 。 

BEGIN DECLARE SECTION / CLOSE / COMMIT / CONNECT / DECLARE CUSOR / DECLARE 

STATEMENT / DECLARE TABLE / DESCRIBE / END DECLARE SECTION / EXECUTE / 


EXECUTE IMMEDIATE / FETCH / INCLUDE / OPEN / PREPARE / ROLLBACK / SET CURRENT 
PACKAGESET / SET HOST VARIABLE / WHENEVER 


而 下 列 SQL 语句 在 EXECSQL 环境 下 可 以 直接 被 执行 。 


ALTER / CREATE / COMMENT ON / DELETE / DROP / EXPLAIN / GRANT / INSERT / 
LABEL ON / LOCK / REVOKE / SELECT / SET CURRENT SQLID / UPDATE 


E 
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另外 ， 在 EXECSQL 环境 下 执行 SQL 语句 不 能 使 用 宿主 变量 ， 但 是 用 户 可 以 使 用 
REXX 变量 来 代替 宿主 变量 进行 参数 传递 。 

SQL 语句 的 执行 结果 会 被 返回 到 预定 义 的 REXX 变量 中 。 如 返回 码 会 被 存 入 变量 
RC， 而 关于 SQL 语句 具体 执行 的 情况 ， 会 被 存放 到 变量 SQLCA 中 ， 也 即 SQL 
COMMUNICATION AREA 中 。SELECT 语句 返回 的 数据 集会 被 存 入 对 应 变量 column.n 
中 ，column.n 是 复合 变量 ， 其 名 称 〈column) 对 应 了 数据 表 的 列 名 ，n 则 对 应 了 返回 的 
特定 行 。 

(2) 执行 DB2 命令 

自 DB2 v2.3 版 本 开始 ， 下 列 DB2 命令 都 可 以 在 EXECDB2 环境 下 执行 。 


-ARCHIVE LOG 
-CANCEL DDF THREAD 
-DISPLAY DATABASE 
-DISPLAY LOCATION 
-DISPLAY RLIMIT 
-DISPLAY THREAD 
-DISPLAY TRACE 
-DISPLAY UTILITY 
-MODIFY TRACE 
-RECOVER BSDS 
-RECOVER INDOUBT 
-START DATABASE 
-START DDF 

-START RLIMIT 
-START TRACE 
-STOP DATABASE 
-STOP DB2 

-STOP DDF 

-STOP RLIMIT 
-STOP TRACE 

-TERM UTILITY 


而 自 DB2 v3.1 版 本 后 ， 下 面 这 些 DB2 命令 也 被 EXECDB2 环境 所 支持 。 


-ALTER BUFFERPOOL 
-CANCEL DDF THREAD 
-DISPLAY ARCHIVE 
-DISPLAY BUFFERPOOL 
-RESET INDOUBT 

-SET ARCHIVE 


然而 , 仍 有 些 DB2 命令 不 能 被 使 用 ， 如 -START DB2 (该 命令 只 能 在 MVS 控制 台中 
执行 )。 另 外 ， 虽 然 STOP DB2 可 以 被 使 用 ， 但 建议 用 户 不 要 使 用 这 条 命令 ， 以 免 造 成 不 
必要 的 麻烦 。 

如 果 要 为 DB2 命令 传递 参数 的 话 ， 同 样 可 以 使 用 REXX 变量 。 而 DB2 命令 执行 的 
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返回 结果 同样 也 会 存放 在 预定 义 的 REXX 变量 中 ， 如 RC 等 。 
关于 SQL 语句 以 及 DB2 命令 在 REXX/CICS 环境 下 更 多 的 使 用 指导 ， 请 参考 IBM 
白皮书 REXX for CICS/ESA RIVI Guide and Reference. 


6.11 REXX 5 DB2 的 交互 


IBM DB2 REXX Language Support 提供 了 使 用 REXX 语言 编写 SQL 应 用 程序 的 支 
FF, REXX 程序 同样 可 以 像 用 户 通常 编写 的 COBOL 程序 一 样 访问 DB2 进行 数据 库 操 作 ， 
并 且 DB2 也 支持 用 REXX 语言 编写 的 存储 过 程 。 
与 其 他 语言 不 同 的 是 ， 所 有 REXX 中 执行 的 SQL 语句 都 是 动态 SQL 语句 。 所 以 ， 
当 系统 安装 DB2 REXX Language Support 后 ， 相 当 于 绑 定 了 4 个 连接 DB2 的 Package, 
每 个 Package 均 有 各 自 不 同 的 隔离 级 别 〈 如 表 6-1 所 示 ， 由 高 到 低 排列 )。 
表 6-1 DB2 的 Package 和 隔离 级 别 


Package 名 称 隔离 级 别 Package 名 称 隔离 级 别 
DSNREXRR RR (Repeatable Read) DSNREXCS CS (Cursor stability 
DSNREXRS RS (Read stability ) DSNREXUR UR (Uncommitted read) 


如 果 想 要 更 改 REXX SQL 程序 的 隔离 级 别 , 可 以 执行 SET CURRENT PACKAGESET 
语句 ， 更 改 对 应 的 Package 来 进行 切换 。 下 例 中 便 将 隔离 级 别 切换 为 RR。 


"EXECSQL SET CURRENT PACKAGESET-'SNREXRR'" 


DB2 REXX Language Support 包含 了 如 下 应 用 编程 接口 。 

e CONNECT: 将 REXX 程序 连接 到 一 个 DB2 子 系统 。 

e DISCONNECT: 将 REXX 程序 与 某 个 DB2 子 系统 的 连接 断 开 。 

e EXECSQL: 执行 SQL 语句 。 所 有 即将 执行 的 SQL 语句 都 应 该 紧 跟 在 EXECSQL 
之 后 出 现 ;或 者 存放 在 REXX 变量 中 ,而 该 变量 同样 必须 紧 跟 在 EXECSQL 之 后 。 
下 面 这 两 种 写法 都 是 正确 的 。 


EXECSQL "COMMIT" 


rexxvar-"COMMIT" 
EXECSQL rexxvar 


这 些 编程 接口 都 必须 在 特定 的 宿主 环境 DSNREXX 下 才能 使 用 ， 因 此 如 果 要 执行 访 
问 DB2 的 REXX 程序 ， 首 先 要 确保 DSNREXX 环境 在 REXX 的 宿主 环境 表 中 ， 可 以 使 
REXX 函数 RXSUBCOM 将 DSNREXX 添加 到 宿主 环境 表 中 。 


1. 将 SQL 语句 嵌入 REXX 程序 
DB2 REXX Language Support 允许 大 部 分 DB2 for z/OS 支持 的 SQL 语句 执行 ， 但 下 
列 语句 不 被 支持 。 


a 


cm 
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BEGIN DECLARE SECTION 

DECLARE STATEMENT 

END DECLARE SECTION 

INCLUDE 

SELECT INTO 

WHENEVER. 
1 于 REXX 语言 仅 支 持 动 态 SQL， 因 此 直接 带 有 宿主 变量 的 SQL 语句 如 SELECT、 
INSERT、DELETE 或 UPDATE 都 是 行 不 通 的 。 正 确 的 做 法 是 首先 执行 PREPARE 语句 ， 
在 其 中 用 参数 标记 替代 宿主 变量 ;随后 再 执行 EXECUTE 或 OPEN 或 FETCH 语句 。 下 
面 这 个 例子 中 ， 标 记 ?在 PREPARE 语句 中 代替 了 宿主 变量 MY， 当 MY 被 赋值 以 后 ， 使 
用 USING 参数 将 其 加 入 EXECUTE 语句 中 对 应 的 位 置 。 


SQLSTAT = "UPDATE MYTAB SET MYCOL = ? WHERE URCOL = 'YES'" 
EXECSQL "PREPARE S100 FROM :SQLSTAT" 

MY-'YES' 

EXECSQL "EXECUTE S100 USING :MY" 


2. 宿主 变量 及 数据 类 型 

宿主 变量 在 REXX 语言 中 不 必 事 先 声明 ， 这 是 REXX 语言 本 身 的 特性 。 在 SQL 语 
句 中 使 用 REXX 变量 作为 宿主 变量 时 ， 同 其 他 语言 一 样 ， 要 在 变量 名 前 加 上 冒号 ， 如 
"myvar"。 简 单 变量 或 者 复合 变量 都 可 以 作为 宿主 变量 来 使 用 ，DB2 Language Support 
会 在 DB2 执行 SQL 语句 之 前 ， 先 行 识别 宿主 变量 。 下 例 中 ， 传 递 给 DB2 的 复合 变量 实 
际 上 是 ":myvar.1.2"。 

varl=1 


var2=2 
EXECSQL "OPEN C1 USING :myvar.varl.var2" 


REXX 语言 中 只 有 一 种 数据 类 型 〈 字 符 串 )。 因 此 当 REXX 程序 将 输入 数据 关联 到 
DB2 中 数据 表 的 某 一 列 上 时 ，DB2 将 自动 将 字符 串 类 型 转化 为 该 列 本 身 的 数据 类 型 。 而 
当 REXX 程序 从 数据 表 中 取出 数据 时 ，DB2 同样 也 会 将 原本 的 数据 类 型 转化 为 字符 串 
类 型 。 

除了 让 DB2 自行 判断 数据 类 型 以 外 , 也 可 以 通过 使 用 SQLDA 来 告知 DB2 输入 数据 
对 应 的 具体 类 型 。 关 于 转换 数据 类 型 的 具体 信息 ， 请 参考 BM 白皮书 DB2 for z/OS 
Application Programming and SOL Guide. 

如 果 没有 预先 给 宿主 变量 赋值 ， 就 将 其 和 数据 表 某 一 列 相 关联 ， 则 DB2 会 返回 报错 
信息 。 
当 从 DB2 返回 的 某 列 为 空 值 时 ，DB2 会 将 其 关联 的 宿主 变量 所 对 应 的 指示 变量 
(indicator variable) 值 置 为 负 值 ， 这 样 就 说 明 该 宿主 变量 为 空 。 同 样 ， 当 用 户 将 空 值 传递 
给 DB2 时 ， 也 必须 将 其 关联 宿主 变量 对 应 的 指示 变量 置 为 负数 。REXX 语言 与 其 他 语言 
的 不 同 之 处 在 于 ， 在 用 户 给 DB2 传递 空 值 时 ， 不 但 要 将 指示 变量 置 为 负 值 ， 同 时 也 要 给 
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宿主 变量 本 身 赋 值 。 换 言 之 ， 宿 主 变量 不 能 为 空 ， 例 如 ; 


SQLSTAT = "UPDATE MYTAB SET URCOL = ?? " 
UR - "000" 
URI - -1 


"EXECSQL PREPARE S1 FROM :SQLSTAT" 
"EXECSQL EXECUTE S1 USING :UR :URI" 


3. 处 理 结果 集 
REXX 程序 中 同时 也 不 支持 SELECT INTO 语句 ， 如 果 要 取出 SELECT 语句 的 查询 
结果 ， 必 须要 预先 PREPARE 查询 声明 语句 ， 并 为 该 语句 打开 一 个 游标 ， 随 后 将 返回 的 
结果 行 通过 宿主 变量 或 SQLDA 取出 。 下 面 的 示例 便 说 明了 如 何 通 过 SQLDA 取出 DB2 
数据 表 的 查询 结果 。 
SQLSTAT = 'SELECT ID, MYCOL, URCOL FROM MYTAB ', 
EXECSQL DECLARE C1 CURSOR FOR S1 
EXECSQL PREPARE S1 INTO :OUTSQLDA FROM :SQLSTAT 
EXECSQL OPEN C1 
Do Until(SQLCODE «» 0) 
EXECSQL FETCH C1 USING DESCRIPTOR :OUTSQLDA 
If SQLCODE - 0 Then Do 
Line = '' 
Do I = 1 To OUTSQLDA.SQLD 
Line = Line OUTSQLDA.I.SQLDATA 
End I 
Say Line 
End 
End 


4. 游标 和 声明 

在 REXX SQL 程序 中 ， 只 能 够 使 用 预定 义 的 一 系列 REXX 变量 来 存放 游标 和 声明 
(prepared statement) 。 

(D) CI-C100: 可 以 用 作 DECLARE. OPEN. CLOSE. FETCH 语句 中 的 游标 。 其 
中 C1 一 C50 是 为 没有 定义 WITH HOLD 选项 的 游标 所 准备 的 ; 而 C31 一 C100 则 是 为 定 
义 了 WITH HOLD 选项 的 游标 所 准备 的 。 

(2) C101-C200: 调用 存储 过 程 取 回 返回 的 结果 集 时 ， 可 以 用 作 ALLOCATE, 
DESCRIBE、FETCH、CLOSE 语句 中 的 游标 。 

(3) S1-S100: 用 于 DECLARE STATEMENT, PREPARE, DESCRIBE, EXECUTE 
语句 的 声明 。 

不 要 使 用 除了 这 些 预 定义 REXX 变量 以 外 的 宿主 变量 名 称 作 为 游标 和 声明 的 名 称 。 
在 DECLARE CUSOR 语句 中 把 游标 名 称 和 声明 名 称 关联 起 来 的 时 候 ， 两 者 的 编号 必须 
一 致 ， 例如 : 


EXECSQL 'DECLARE C1 CURSOR FOR S1' 


l6] 
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5. 检测 错误 和 警告 
1 于 REXX 不 支持 WHENEVER 语句 , 通常 使 用 下 面 两 种 方法 来 检测 REXX 程序 与 
DB2 交互 时 发 生 的 错误 和 警告 信息 。 

第 一 种 方法 是 在 每 次 EXECSQL 调用 后 检查 SQLCODE 或 SQLSTATE 以 及 
SQLWARN 的 值 ， 但 是 这 种 方法 无 法 检测 到 从 REXX DB2 接口 连接 到 DB2 之 间 发 生 的 
错误 。 

第 二 种 方法 是 在 每 次 EXECSQL 调用 后 检查 REXX 的 RC 变量 返回 值 值 ， 如 果 返 回 
值 为 0 则 说 明 没有 发 生 SQL 错误 或 警告 ; 如 果 返 回 值 为 1 则 说 明 有 和 警告 出 现 ; 如 果 返 回 
值 为 -1 则 说 明 发 生 了 SQL 错误 。 同 时 ， 也 可 以 使 用 REXX SIGNAL ON ERROR 以 及 
SIGNAL ON FAILURE 关键 字 指令 来 检测 RC 返回 值 并 将 其 转化 为 错误 信息 。 


6.12 REXX 与 其 他 编程 语言 


REXX 可 以 与 其 他 编程 语言 编写 的 程序 互相 交互 ， 如 主机 汇编 语言 Cassembler). 
COBOL, PL/1, C 以 及 FORTRAN 等 在 主机 平台 上 经 常 使 用 的 语言 。 可 以 选择 的 交互 方 
式 有 以 下 几 个 。 

(1) 外 部 函数 及 子 例 程 : 除了 用 户 可 以 编写 外 部 函数 和 子 例 程 来 扩展 REXX 的 使 用 
性 能 。 外 部 函数 和 子 例 程 都 可 以 用 REXX 编写 , 甚至 可 以 将 其 编译 , 然后 调用 Assembler. 
COBOL, PL/1. C 或 FORTRAN 程序 〈 前 提 条 件 是 运行 在 31 位 的 地 址 空间 中 )。 

(2) 函数 包 (function packages): 函数 包 将 多 个 外 部 函数 或 子 例 程 整合 到 一 起 。 
REXX 语言 解释 器 在 执行 程序 时 ， 会 首先 搜索 函数 包 ， 随 后 再 搜索 装载 程序 库 (load 
libraries) 以 及 执行 程序 库 (EXEC Libraries, "ll SYSEXEC 或 SYSPROC)。 因 此 ， 如 果 
将 经 常 执行 的 外 部 函数 或 子 例 程 放 在 程序 包 内 ， 可 以 提高 语言 解释 器 的 检索 效率 ， 从 而 
提升 其 执行 性 能 。 

(3) 变量 获取 (variable access): REXX 提供 了 让 其 他 语言 编写 的 程序 直接 访问 并 操 
作 REXX 程序 中 变量 的 接口 。 用 户 可 以 调用 IRXEXCOM 或 IKJCT441 例 程 ， 从 而 对 
REXX 变量 进行 复制 、 赋 值 、 删 除 、 获 取 变 量 名 、 设 置 变量 名 以 及 获取 下 一 个 变量 等 多 
种 操作 。 

(4) 特定 宿主 环境 : 通过 IRXSUBCM 子 例 程 可 以 修改 宿主 命令 环境 表 中 的 信息 ， 
用 户 动 态 添加 自 定义 的 宿主 命令 环境 。 

C50 其 他 程序 调用 REXX 程序 : IRXEXEC 子 例 程 使 得 其 他 语言 编写 的 程序 能 够 调 
用 REXX 程序 执行 器 ， 传 递 参数 随后 执行 某 个 REXX 程序 ， 并 且 获 得 返回 结果 。 

(6) 访问 数据 栈 : 其 他 语言 编写 的 程序 也 可 以 访问 REXX 数据 栈 ， 因 此 ， 数 据 栈 可 
以 作为 REXX 与 非 REXX 程序 间 传 递 数 据 的 手段 被 使 用 . IRXSTK 是 系统 提供 的 数据 栈 
子 例 程 ， 用 于 处 理 各 种 数据 栈 请 求 。 

关于 以 上 这 些 交 互 方式 的 更 多 信息 ， 可 以 参阅 IBM 白皮书 TSO/E REXX Reference, 
查看 相关 子 例 程 的 具体 参数 及 用 法 。 
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6.13 REXX 与 其 他 IBM 产品 


事实 上 ， 很 多 IBM 相关 产品 都 支持 REXX， 除 了 已 经 提 到 的 RACF、IDCAMS, 还 
有 IPCS 等 产品 。 由 于 这 些 产品 集成 于 ZOS, AIEE REXX 构建 其 命令 能 得 到 良好 的 
应 用 。 除 此 之 外 ， 中 间 件 产品 CICS、 数 据 库 产 品 IMS、DB2 等 ， 以 及 z/OS 前 身 VSE, 
OS 390 等 能 都 良好 地 支持 REXX 运行 〈 部 分 产品 已 在 前 面 有 所 介绍 )。REXX 本 身 良好 
的 脚本 语言 特性 ， 使 其 在 各 种 平台 的 产品 中 都 有 广泛 的 应 用 。 
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7.4 ISPF 和 ISPF 会 话 


7.1.1 什么 是 ISPF 


ISPF (Interactive System Productivity Facility) 运行 在 TSO 上 ， 是 TSO 的 扩展 系统 ， 
它 是 一 种 采用 菜单 驱动 模式 的 用 户 交 互 工具 , 提供 人 机 交互 的 处 理 。ISPF 提供 如 下 服务 。 

(1) 显示 服务 。 

(2) 文件 定制 服务 。 

(3) 变量 服务 。 

(4) 表 服 务 。 

(5) 综合 性 服务 。 

(6) 会 话 测试 组 件 服务 ， 包 括 : 
设置 断 点 ; 
追踪 会 话 服 务 和 Dialog 变量 的 使 用 ; 
浏览 ISPF 日 志 数 据 集 的 TRACE 输出 ; 
检查 更 新 ISPF X; 
交互 地 调用 大 多 数 的 会 话 服务 。 

ISPF 提供 了 基于 图 形 面板 的 用 户 界面 ， 用 户 可 以 通过 该 界面 上 面板 的 目录 选择 ， 使 
用 对 应 的 ISPF 的 各 种 功能 。 某 系统 ISPF 提供 的 用 户主 界面 如 图 7-1 所 示 。 

此 界面 有 三 个 主要 区 域 。 

(1) Action bar: 屏幕 上 方 的 区 域 。 选 择 任意 一 个 Action bar 都 会 显示 一 个 下 拉 窗 口 。 
涵盖 了 ISPF 的 所 有 功能 和 设置 。 

(2) 功能 选项 : 屏幕 的 主体 区 域 。 这 个 区 域 显示 了 ISPF 的 主要 功能 选项 菜单 。 直 观 
地 提供 选择 ， 方 便 用 户 使 用 。 

(3) 动态 状态 区 域 : 屏幕 右 侧 的 区 域 。 用 户 可 以 指定 此 区 域 显示 的 内 容 。 可 以 通过 
操作 栏 中 的 状态 栏 进 行 修改 。 

ISPF 界面 下 方 一 般 会 标识 功能 键 : Fl 键 查看 帮助 ，F2 键 分 屏 F3 键 退出 F8 键 来 向 
下 翻 页 ，F7 键 向 上 翻 页 ，F10 键 向 左 移动 ，F11 键 向 右 移动 。 


— 
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ISPF Primary Option Menu 


Settings Terminal and user parameters User ID . : IBMUSER 
View Display source data or listings Time. . . 02:37 
Edit Create or change source data Terminal. : 3278 
Utilities Perform utility functions Screen. . 1 
Foreground Interactive language processing Language. ENGLISH 
Batch Submit job for language processing Appl ID. ISR 
Command Enter TSO or Workstation commands TSO logon DBSPROCO 
Dialog Test Perform dialog testing TSO prcfix: 

IBM Products | IBM program development products System ID : ADCD 

10 SCLM SW Configuration Library Manager MVS acct. : ACCT# 

11 Workplace ISPF ObjecL/Action Workplace Release . : ISPF 5.9 
M More Additional IBM Products 


站 人 mw 


Enter X to Terminate using log/list defaults 


Option ===; 
Fl-Help F2-Split F3-Exit F7-Backward  F8-Forward F9-Swap 
FlO-Actions Fl2=Cancel J 


图 7-1 ISPF 主 界面 
在 Action bar 中 ， 选 择 任意 一 个 Action bar 都 会 显示 一 个 下 拉 窗 口 ， 如 图 7-2 所 示 。 


Menu Utilities Compilers Options Status Help 


光标 敏感 区 | 1. General Settings | 
1 2. CUA Attributes... | 

0 [Settings Terminal a | 3. Keylists... | ID. IBMUSER 
1 |View Display so | 4. Point-and-Shoot... | . 02:37 
2 |Eait Create or | 5. Colors... | inal 3278 
3 [utilities Perform ut | 6. Dialog Test appl ID... | en. 1 
4 | Foreground Interactiv : ENGLISH 
5 | Batch Submit job for language processing Appl ID. ISR 
6 | Command Enter TSO or Workstation commands TSO logon : DBSPROC9 
7 |Dialog Test Perform dialog testing TSO prefi 
9 | IBM Products| IBM program development products System ID : ADCD 
10| SCLM SW Configuration Library Manager MVS acct. ACCT# 
11|Workplace ISPF Object/Action Workplace Release . : ISPF 5.9 
M |More Additional IBM Products 


Enter X to Terminate using log/list defaults 


Option ===> 
Fl-Help F2-Split F3-Exit F7-Backward  F8-Forward F9-Swap 
FlO-Actions  Fl12-Cancel 


图 7-2 Action Bar 下 拉 窗 口 


功能 选项 的 方 框 区 域 为 光标 敏感 区 (实际 显示 为 蓝 色 的 区 域 ), 将 光标 移 到 蓝 色 区 域 ， 
后 ， 即 可 查看 提供 的 子 菜单 选项 或 进入 某 个 功能 。 
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7.1.2 ISPF 会 话 


一 般 而 言 ， 会 话 (session) 可 理解 为 通过 特定 显示 终端 与 计算 机 程序 的 交互 ，ISPF 
会 话 特 指 运行 于 ISPF 下 的 交互 式 对 话 (dialog) 程序 。 

ISPF 会 话 包含 相应 的 会 话 要 素 ， 主 要 包括 功能 指示 、 面 板 定 义 、 消 息 定 义 、 表 格 、 
文件 裁剪 框架 、Dialog 变量 等 要 素 。“ 功 能 指示 ”决定 了 对 话 框 的 处 理 顺 序 ， 它 可 以 调用 
ISPF 会 话 的 有 关 服 务 显示 面板 或 消息 ， 构 建 或 保存 表格 ， 产 生 输 出 数据 集 以 及 控制 操作 
模式 等 。 通常 “功能 指示 ”可 由 REXX 等 脚本 语言 编写 , 也 可 以 其 他 诸如 PLI COBOL, 
FORTRAN 等 编程 语言 编写 完成 。 下 面 主要 介绍 REXX 与 ISPF 会 话 的 交互 。 


7.1.3 ISPF 对 话 框 定义 


想 要 理解 ISPF 会 话 ， 首 先 要 理解 什么 是 ISPF 对 话 框 。 一 个 对 话 框 是 人 机 之 前 的 交 
互 媒 介 。 能 够 在 人 与 计算 机 之 间 传 递 信 息 。 图 7-3 就 展示 了 ISPF 的 一 个 对 话 框 。 


TONGJI REXX SHOW 


COMMAND ===> 


Please enler your name Lo login 


ID TJA0095 

NAME 
Fl-HELP F2-SPLIT F3-END FA4-RETURN F5-RFIND F6-RCHANGE 
F7-UP F8-DOWN F9-SWAP FlO-LEFT Fl11-RIGHT F12-RETRIEVE J 


Fd 7-3 ISPF 对 话 框 
图 7-3 所 示 的 对 话 框 对 应 的 窗口 定义 代码 如 图 7-4 所 示 。 
7.1.4 ISPF 对 话 元 素 


组 成 一 个 ISPF 对 话 程序 的 元 素 有 : 功能 函数 、 变 量 、 命 令 表 、 面 板 定义 、 消 息 定义 、 
文件 裁 前 框架、 数据 库 的 表 。 一 个 对 话 应 用 不 必 包 含 所 有 种 类 的 元 素 。 下 面 介 绍 几 个 主 
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File Edit Edit Settings Menu Utilities Compilers Test Help 


VIEW TJA0095.REXX.PANEL(TPOl) - 01.00 Columns 00001 00072 
GeeeeR oaaao Top of Data Jetteeeeeoeenaenoeeeeenonoeor 
000001 )ATTR 

000002  $ TYPE(TEXT) COLOR(WHITE) CAPS(OFF) SKIP (ON) 

000003  * TYPE (TEXT) CAPS(OFF) INTENS(HIGH) COLOR(GREEN) SKIP (ON) 


000004 ! TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR (BLUE) SKIP (ON) 
000005 _ TYPE(INPUT) PAD(' ') INTENS(HIGH) COLOR (TURQ) 
000006 @ TYPE (NEF) CAPS(ON) PADC (USER) 

000007 # TYPE (OUTPUT) PAD(' ') CAPS(OFF) COLOR(YELLOW) JUST (LEFT) 
000008 ? TYPE (NT) 

000009 )BODY WIDTH(80) CMD(ZCMD) EXPAND (// 

000010 * 

000011 !/ /TONGJI REXX SHOW/ / 

000012 * 

000013 *COMMAND ===>@ZCMD 

000014 * 

000015 * 

000016 $/ /Please enter your name to login/ / 

000017 * 

000017 * 

000018 * 

000019 * 

000020 * 

000021 */ /ID #uid */7 

000022 */ /NAME uname  * / / 

000023 * 


000024 )PROC 
000025 VER(&uname,NB) 


000026 )end 
KERRAK KAk kkk kikk Bottom of Data Jeeeesekeeeeeeeeeepceeeeeer 
Command ===> Scroll ===> PAGE 
Fl-Help F2-Split F3-Exit F5-Rfind F6-Rchange F7-Up 
F8-Down F9-Swap Fi0-Left Fli-Right Fi2-Cancel J 
图 7-4 对 话 框 定义 
1. 功能 函数 


功能 函数 是 一 个 命令 过 程 (command procedures) 或 程序 ， 执 行 处 理 用 户 请 求 。 它 可 
以 显示 面板 和 消息 ， 调 用 ISPF 对 话 框 服务 ， 建 立 和 维护 表 ， 生 成 输出 数据 集 ， 并 控制 操 
作 模 式 等 。 功 能 函数 可 以 用 命令 过 程 语言 编写 ， 如 CLIST 或 REXX， 也 可 以 使 用 其 他 语 
言 ， 如 PLI、COBOL、FORTRAN、APL2、Pascal 或 者 C. 


2. 变量 

ISPF 服务 使 用 变量 在 对 话 应 用 的 各 个 元 素 之 前 传递 信息 。ISPF 提供 了 管理 变量 的 一 
组 服务 。 变 量 存储 信息 最 大 长 度 为 32KB， 这 些 信息 依据 其 使 用 情况 被 存储 在 变量 缓冲 
池 中 。 字 母 Z 开头 的 一 组 变量 为 系统 变量 。 以 Z 开头 的 变量 都 被 保留 下 来 供 ISPF 系统 
来 使 用 ， 用 户 不 可 以 使 用 。 


3. 命令 表 

一 个 程序 可 以 通过 在 系统 输入 库 中 生成 一 个 名 为 XXXXCMDS 的 表 ， 这 个 表 被 用 来 
当做 此 应 用 程序 的 命令 表 。XXXX 为 应 用 程序 的 ID， 为 1—4 位 的 字符 。 如 ISPCMDS 
是 ISPF 分 配 的 系统 命令 表 。 
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此 外 , 用 户 可 以 指定 最 多 3 个 用 户 命令 表 和 3 个 SITE 命令 表 , 这 些 配置 信息 记录 在 
ISPF 配置 表 中 。 用 户 还 可 以 指定 SITE 命令 表 是 在 系统 命令 表 之 前 还 是 之 后 被 检索 。 

定义 一 个 应 用 程序 命令 表 ， 可 以 使 用 对 话 框 标记 语言 (DTL) 和 ISPF 的 conversion 
实用 程序 ， 或 者 使 用 ISPF 的 选项 3.9 来 完成 ， 如 图 7-5 所 示 。 


Menu Help 
& a E ia e aaa Commands ----------------------------------- 
Command Table Utility 
1 Specifications Command table search order 
Application ID . . ISP Application table . : ISP 
2 Enter "/" to select option User table 1 D 
Show description field User table 2 $ 
3 User table 3 . . . . :! 
4 Site table1. .. .: 
Site table 2 $ 
5 Site table 3 
6 System table ISP 
7 
8 If no application ID is specified, the current application ID will be 
9 used. The name of the command table to be processed is formed by 
1 prefixing the application id to the string 'CMDS'. For example: 
1 Application ID . . TST results in a command table name of 'TSTCMDS'. 
1 
1 Command ===> 
1 Fl-Help F2-9plit F3-Exit F7-Backward F8-Forward 
o F9-Swap F12-Cancel 
FlO-Actions  Fl12-Cancel J 


图 7-5 ISPF 选项 3.9 定义 程序 命令 表 
按 回 车 键 ， 则 进入 想 要 查看 的 命令 表 显 示 窗 口 ， 如 图 7-6 所 示 。 


Menu Utilities Help 
Display ISPCMDS Row 1 to 12 of 88 

The command table is currently open, it cannot be modified. Use the view(V) 
row command to see an entire entry. 

Verb T Action 

BACKWARD 0 ALIAS UP 

BOTTOM 0 ALIAS DOWN MAX 

FORWARD 0 ALIAS DOWN 

TOP 0 ALIAS UP MAX 

ACTIONS 0 ACTIONS 

AUTOTYPE 0  SETVERB 

CANCEL 3 CANCEL 

CMDE 0 SELECT PGM(ISPCCMDE) SUSPEND 

COLOR 0 SELECT PGM(ISPOPT) PARM(ISPOPT10) SCRNAME (SETTINGS) 

CRETRIEV 0 CRETRIEV 

CUAATTR 0 SELECT PGM(ISPOPT) PARM(ISPOPT11) SCRNAME (SETTINGS) 

CURSOR 0 CURSOR 
Command ===> Scroll ===> PAGE 
Fl-Help F2-Split F3-Exit F7-Backward  F8-Forward  F9-Swap 
FlO0-Actions Fl2-Cancel 


图 7-6 命令 显示 表 
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上 例 中 显示 了 系统 正在 使 用 的 命令 表 ， 可 在 任意 条 命令 前 面 输入 V 来 显示 命令 的 具 
体 描述 。 

用 户 在 命令 输入 位 置 输入 相应 命令 时 ， 系 统 会 立即 做 出 反应 。 如 在 命令 输入 位 置 输 
入 ACTIONS， 则 光标 会 移 到 action bar。 

当 用 户 输入 一 个 命令 ,对话 框 管理 器 搜索 应 用 程序 命令 表 ， 然 后 搜索 系统 命令 表 。 
如 果 找到 了 命令 ， 立 即 执 行 ， 如 果 没 有 找到 命令 ， 这 条 命令 则 被 传 回 对 话 界面 ， 原 样 地 
显示 出 来 ， 由 对 话 界 面 采 取 相 应 的 反馈 信息 给 用 户 。 


4. 面板 定义 

一 个 面板 的 定义 是 面板 的 编程 描述 ， 它 定义 了 面板 的 内 容 和 格式 。 大 多 数 面板 提示 
用 户 输入 ， 输 入 的 信息 被 记录 为 数据 ， 传 递 到 “数据 输入 面板 ”。 在 “选择 面板 ”中 ， 通 
过 对 话 程序 系统 可 以 识别 用 户 的 输入 是 哪 一 条 路 径 。 面 板 可 以 调用 REXX 语句 ， 执 行 诸 
如 算术 运算 、 数 据 转换 、 对 话 变量 的 格式 化 、 验 证 、 转 换 等 功能 。 


5. 消息 定义 

消息 定义 指定 了 消息 的 形式 和 文本 内 容 。 消 息 可 以 确认 用 户 输入 的 请 求 是 正在 执行 
还 是 已 完成 , 或 者 报告 用 户 的 输入 错误 。 消息 可 以 显示 定义 的 信息 , 或 者 可 以 复制 日 志 ， 
或 者 采用 二 者 结合 显示 信息 。 

总 结 一 下 ， 参 照 图 7-7， 开 发 人 员 使 用 ISPF 服务 创建 和 测试 对 话 框 元 素 。 面 板 的 定 
义 、 消 息 定义 和 文件 裁剪 框架 等 的 创建 需要 在 运行 对 话 框 之 前 完成 ， 这 些 对 话 框 元 素 被 


A 
MVS 


ISPF Libraries 
NEN nile 
~ 
ISPF Panel Message 
library library 
S 


PDF —-— = 


File-Tailoring 
Skeleton 


| *Logand dos 


List library library 
M. library /7 
| — ——— 


操作 系统 程序 
= 或 命令 过 程 数据 库 


图 7-7 开发 ISPF 对 话 图 示 ? 


© 摘自 IBM 白皮书 2/OS VIR6.0 ISPF Dialog Developer's Guide and Reference 图 5。 
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保存 在 库 中 。 开 发 人 员 把 程序 〈 编 译 后 ) 或 命令 过 程 存储 到 一 个 适当 的 系统 程序 库 中 。 
在 对 话 测试 过 程 中 ， 对 话 框 处 理 过 程 生成 了 数据 表 、 日 志 记录 和 文件 裁剪 输出 数据 集 。 
ISPF 将 在 用 户 第 一 次 执行 ISPF 操作 时 生成 日 志 数据 集 , 之 后 ISPF 将 用 户 操作 的 结果 作 
为 日 志 信息 进行 记录 。 

当 开发 人 员 完 成 了 功能 函数 、 面 板 的 定义 以 及 应 用 程序 需要 的 任何 其 他 对 话 元 素 后 ， 
对 话 就 可 以 在 ISPF 下 运行 。 更 多 关于 对 话 元 素 的 介绍 , 请 参阅 IBM 白皮书 TSPF Services 
Guide. 


7.2 ISPF 服务 调用 


除了 基于 图 形 面板 的 界面 外 ，ISPF 提供 应 用 程序 的 交互 接口 一 一 ISPF 服务 。 通 过 
ISPF 服务 交互 接口 , 可 以 进行 交互 式 的 ISPF 对 话 应 用 开发 , 或 者 在 程序 中 使 用 ISPF 提 
供 的 各 种 功能 (例如 数据 集 浏 览 、 编 辑 )、 在 后 台 启动 ISPF 对 话 〈 显 示 一 个 对 话 面板 ) 
等 各 种 功能 。 

程序 员 可 以 使 用 命令 或 者 程序 中 的 CALL 语句 来 调用 ISPF 服务 。 事 实 上 ，ISPF 服 
务 是 ISPF 提供 给 各 种 编程 语言 的 一 个 通用 的 交互 接口 ， 提 供 了 100 多 个 ISPF 服务 。 每 
种 语言 都 可 依照 各 自 语 法 规 进 行 ISPF 服务 的 调用 ， 这些 语言 包括 REXX, CLIST. PL/I 
COBOL、C， 等 等 。 这 里 主要 介绍 在 REXX 中 如 何 调用 ISPF 服务 。 

通常 来 说 ,在 使 用 ISPF 服务 之 前 ， 需 要 在 程序 中 首先 检测 ISPF 服务 是 否 可 用 ， 可 
以 通过 ISPQRY 命令 进行 检测 ， 其 返回 码 RC 结果 有 两 种 ， 即 0 表示 服务 对 当前 调用 者 
可 用 ; 20 表示 对 当前 调用 者 不 可 用 。 例 如 : 

/* REXX */ 

ADDRESS TSO 


"CALL "ISP.SISPLORD (ISPQORY) "" 
SAY 'Return Code-'RC 


调用 ISPF 服务 有 两 种 形式 ， 即 使 用 命令 调用 ISPF 服务 和 使 用 程序 调用 ISPF 服务 。 
二 者 的 不 同 主要 在 于 调用 的 形式 。 编 程 语言 如 COBOL 和 FORTRAN 等 可 以 使 用 程序 调 
用 方式 ，REXX 则 常 采用 命令 调用 方式 。 


7.2.1 使 用 命令 调用 ISPF 服务 


使 用 命令 来 调用 ISPF 服务 又 可 以 使 用 以 下 的 两 种 方式 。 

(D 在 REXX 程序 中 ， 调 用 ISPEXEC 命令 调用 服务 命令 。 

(2) 使 用 ISPF 面板 选项 7.6: 即 Dialog Test 选项 面板 的 Dialog Services 选项 。 

使 用 ISPEXEC 命令 接口 调用 ISPF 服务 是 REXX 程序 中 最 为 常用 的 方法 , 通常 , 在 
REXX 中 调用 ISPEXEC 接口 调用 的 一 般 形式 如 下 : 


ISPEXEC service-name parameterl parameter2 parameter3 .. 


$79 REXX 与 ISPF 交互 


例如 : 


ISPEXEC DISPLAY PANEL (XYZ) 


其 中 : parameterl 常 为 某 些 服 务 需 要 的 位 置 参数 ;parameter2、parameter3 等 通常 为 
以 下 两 种 形式 之 一 : keyword 或 者 keyword (value)。 调 用 语句 中 service-name 必须 为 大 
写字 母 。service-name 和 parameter 也 可 以 使 用 REXX 中 的 变量 ， 使 用 & 前 级 。 

但 有 一 些 服务 不 能 使 用 ISPEXEC 直接 调用 ， 这 些 服务 如 下 。 

GRERROR, VCOPY, VMASK 

GRINIT, VDEFINE. VREPLACE 

GRTERM. VDELETE. VRESET 

以 上 服务 可 以 使 用 程序 中 的 CALL 语句 来 调用 。 

在 命令 过 程 语句 的 函数 中 ， 通 过 ISPEXEC 命令 调用 ISPF 服务 。 例 如 : 


ISPEXEC DISPLAY PANEL (XYZ) 


上 例 在 当前 的 终端 上 显示 XYZ 面板 ，XYZ 面板 的 定义 预先 要 存储 在 面板 定义 文件 
中 ,指定 面板 上 的 内 容 及 其 显示 的 形式 。 除了 上 面 直接 使 用 ISPEXEC 接口 之 外 ,也 可 以 
首先 在 REXX 程序 中 转换 到 ISPEXEC 宿主 环境 ， 然 后 调用 ISPF 服务 。 例 如 : 
例 1: 显示 ISPF 面板 和 弹出 对 话 框 。 
/* REXX */ 
ADDRESS ISPEXEC /* 转换 宿主 环境 */ 
"ADDPOP" 
"DISPLAY PANEL (PANELA)" 
"ADDPOP POPLOC(FIELD2)" 
ZWINTTL = "POPUP WINDOW TITLE" 
"DISPLAY PANEL (PANELB)" 
"ADDPOP COLUMN(5) ROW(3)" 
ZWINTTL - "" 
"DISPLAY PANEL (PANELC)" 
EXIT 


程序 运行 结果 如 图 7-8 所 示 。 

例 2: 数据 集 处 理 。 

本 例 给 出 了 通过 在 REXX 程序 中 调用 “ 库 访问 服务 ”来 删除 某 一 个 分 区 数据 集 下 的 
某 成 员 的 方法 。 在 调用 “ 库 访问 服务 ”时 ， 需 要 使 用 LMDINIT 将 输入 的 数据 集 名 称 
DSNAME 同 DATAID 关联 起 来 ， 从 而 使 别 的 服务 可 以 通过 该 ID 定位 该 分 区 数据 集 。 程 
序 执行 完成 后 ， 需 要 释放 DATAID 与 数据 集 的 关联 。 


/>kkkkkkkkkkkkkkkkkkkQEXX*ž*žkkkkkkkkkkkkkkkkkkk/ 


PULL DSNAME MBNAME 
/*** DSNAME 是 数据 集 名 称 , MBNAME 是 成 员 名 称 , 需要 用 户 从 屏幕 上 输入 ***/ 
"SUBCOM ISPEXEC" 
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D 
l 
2 
3 
4 
5 
5 
7 
B 
9 
1 


Enter 


Optio 


Fl-Help F2-Split 
FlÜü-Actions F12-Cancel 


COMMAND ===> 
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Field 1 

PFieid2 .... 

Field3 ... POPUP WINDOW TIT 
Field4 ... Panel B -------- 


This is Panel B 


Fl-HELP F2-5 
F4-RETURN F5=R This is Panel C 


Field E 
X to Terminate COMMAN Field F 
Field G 
Field H 


COMMAND 一 一 一 > 
in ===> TSO ADDP F1-HELP FZ-SPLIT F3-END 
FA-RETUREN FS-RFIND FÓ-RCHANGE 


图 7-8 程序 调用 显示 结果 


ADDRESS ISPEXEC 


IF 


EXIT 


通过 上 例 可 以 看 到 ， 通 过 这 种 方法 可 以 调用 ISPF 所 提供 的 各 种 文件 操作 ， 例 如 
LMINIT (创建 DATAID)、LMRENAME ( 重 命名 数据 集 ) 以 及 LMGET ( 读 取 数 据 集 


'LMINIT DATAID('DDVAR') DATASET('DSNAME') ENQ(SHRW)' 
/*** 赋 给 数据 集 DSNAME 一 个 DATAID: DDVAR ***/ 

SAY 'The ID OF the Data Set:' DSNAME 'is' DDVAR 
'LMOPEN DATAID('DDVAR') OPTION (OUTPUT) LRECL('DLVAR') 
RECFM('RFVAR') ORG('ORGVAR')' 

/*** 将 数据 集 名 称 与 DATAID 关联 起 来 ***/ 

'LMMDEL DATAID('DDVAR') MEMBER ('MBNAME') ' 

/* 删除 该 数据 集 下 的 成 员 MBNRME ***/ 

'LMFREE DATAID('DDVAR')' /*** 释放 DATA-ID 与 数据 集 关联 ***/ 
(RC <> 0) THEN 

SAY 'ERROR HAPPEN' 


中 的 一 条 记录 )。 大 大 丰富 了 REXX 脚本 程序 的 自身 功能 。 
72.2 传递 Dialog 变量 作为 参数 


一 些 ISPF 服务 允许 使 用 Dialog 变量 作为 参数 传递 给 命令 语句 , 变量 名 称 不 能 超过 8 
个 字符 。 这 些 Dialog 变量 不 必 使 用 前 级 &， 除 非 想 要 将 它们 换 成 其 他 的 变量 。 例 如 : 


ISPEXEC VGET XYZ 
ISPEXEC VGET &VNAME; 
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VGET 是 复制 变量 内 容 的 语句 ， 在 第 一 个 语句 中 ，XYZ 就 是 传递 的 Dialog 变量 。 在 
第 二 个 语句 中 ， 变 量 VNAME 则 包含 了 要 被 传递 的 Dialog 变量 。 
VGET 还 可 以 把 通过 一 个 参数 获取 一 系列 变量 名 。VGET 服务 的 语法 如 下 。 


ISPEXEC VGET name-list [ASIS|SHARED|PROFILE] 

其 中 name-list 是 一 个 位 置 参数 。 它 能 够 包括 多 达 254 个 Dialog 变量 名 , 每 一 个 变量 
名 用 逗号 或 者 空格 隔 开 。 当 name-list 包括 多 个 变量 时 ， 需 要 用 括号 。 如 果 只 有 一 个 变量 
时 ， 则 可 以 省 略 括号 ，VGET 获取 一 系列 Dialog 变量 的 例子 如 下 。 


ISPEXEC 
ISPEXEC 
ISPEXEC 
ISPEXEC 


VGET 
VGET 
VGET 
VGET 


(AAA, BBB, CCC) 
(LNAME FNAME I) 
(XYZ) 

XYZ 


7.2.3 ISPF 编辑 器 


ISPF 编辑 器 也 提供 了 对 应 的 接口 服务 。 通 过 这 些 接口 的 使 用 ， 可 以 使 程序 运行 于 


ISPF 下 ， 并 能 够 使 用 ISPF 以 及 ISPF 编辑 器 提供 的 各 种 功能 ， 例 如 编辑 命令 操作 (如 
Find/Change 等 )、 数 据 操作 (如 ShifUSort 等 )、 行 操作 (如 Move/Insert 等 ) 以 及 基本 文 
件 操作 (Save/Submit 等 ) 以 及 运行 编辑 宏 等 近 百 种 服务 ， 都 可 以 通过 ISPF 编辑 器 服务 
接口 提供 。 和 前 面 所 提 到 的 “ISPF 服务 ”类 似 ，ISPF 编辑 器 服务 运行 所 需要 宿主 环境 是 
ISREDIT， 通 过 REXX 的 ADDRESS 指令 语句 切换 环境 : Address ISREDIT。 

可 在 REXX 程序 中 使 用 编辑 器 的 RESET 命令 ， 命 令 如 下 : 

ADDRESS ISREDIT RESET 


IPSF 编辑 器 服务 的 用 法 和 前 面 所 述 的 ISPEXEC 宿主 环境 中 ISPF 服务 的 语法 相同 。 
ISPF 编辑 器 服务 在 编辑 宏 (Edit Macro) 中 有 广泛 应 用 。 


724 调用 ISPF 服务 的 返回 值 


通常 ISPF 服务 调用 结束 后 , 会 有 对 应 的 命令 返回 码 , 通过 特殊 变量 RC 变量 可 以 查 


询 ,这 些 返回 码 的 含义 如 表 7-1 所 示 , 更 多 关于 返回 码 的 详细 信息 ,参阅 IBM 白皮书 ISPF 


Services Guide. 


37-1 ISP 服务 调用 返回 码 
说 — HB 
服务 正确 完成 返回 
警告 信息 ， 不 一 定 为 错误 产生 。 当 返回 码 为 4 时 ， 表 示 有 一 些 警告 信 
息 。 当 返回 码 为 8 时 ， 表 示 有 非 严 重 的 错误 产生 ， 例 如 到 达 数 据 集 或 
成 员 列表 末尾 
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续 表 


返回 码 * 明 


10:39:12 服务 产生 错误 ， 未 能 正常 完成 。 当 返回 码 为 12 或 更 大 时 ， 可 使 用 
vs ”| 错误 产生 | CONTROL 服务 来 控制 错误 。10 和 14 是 PDF (Program Development 


dus Facility) 组 件 服务 特有 的 返回 码 


7.8 ISPF 服务 描述 


7.3.1 ISPF 服务 分 类 
ISPF 服务 分 为 8 类 : 对 话 显示 服务 、 文 件 裁剪 服务 、 库 访问 服务 、PDF 组 件 服务 、 
表格 服务 、 变 量 服务 、 杂 项 服务 。 


1. 对 话 显示 服务 
该 类 服务 包括 了 诸如 显示 /消除 ISPF 弹出 窗口 (ADDPOP/REMPOP)、 显 示 面 板 信 息 
(DISPLAY/SELECT)、 信 息 控制 (SETMSG/TBDISPL) 等 对 话 控 制服 务 。 该 类 服务 汇总 


如 表 7-2 所 示 。 
表 7-2 ”对话 显示 服务 汇总 
B 务 说 ” 明 
ADDPOP 攻 定 显示 窗口 顺序 和 位 置 


DISPLAY 从 窗口 文件 中 读 取 面板 的 定义 、 初 始 化 变量 信息 ， 并 在 屏幕 上 显示 此 窗口 
REMPOP 从 屏幕 中 移 除 置顶 窗口 

SELECT 用 来 显示 可 选择 窗口 的 层次 结构 或 者 调用 一 个 函数 

从 ISPF 系统 预 留 区 域 的 信息 文件 中 读 取 并 构建 一 个 特定 的 信息 。 此 信息 将 在 下 一 个 
窗口 使 用 任意 DM 组 件 服务 进行 中 显示 

从 存储 窗口 定义 信息 的 ISPF 表 中 读 取 并 组 合 信息 。 显示 从 表 中 选取 的 行 允许 用 户 进 
行 处 理 


SETMSG 


TBDISPL 


2. 文件 裁剪 服务 
文件 裁剪 服务 包括 了 对 文件 进行 裁减 操作 的 各 种 服务 ， 例 如 : FTOPEN、FTINCL、 
FTCLOSE、FTERASE 等 。 文 件 裁剪 服务 ， 以 正常 被 调用 的 顺序 来 列 出 。 该 类 服务 汇总 


如 表 7-3 所 示 。 
表 7-3 “文件 裁剪 服务 
Ros LEE] 
FTOPEN | “准备 文件 裁剪 处 理 ， 指 定 是 否 把 输出 放 到 临时 文件 中 
FTINCL | 指定 使 用 的 框架 ， 并 开始 裁剪 处 理 
FTCLOSE | 结束 文件 裁剪 处 理 


FTERASE 删 掉 文 件 裁剪 过 程 产生 的 输出 文件 
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3. 库 访 问 服务 
库 访 问 服务 提供 了 丰富 的 访问 和 操作 ISPF 库 以 及 文件 的 各 种 功能 服务 , 例如 复制 一 
个 分 区 数据 集成 员 ， 实 现 的 功能 和 ISPF 的 3.4、3.3 以 及 3.2 接口 相似 。 该 类 服务 汇总 如 


表 7-4 所 示 。 
表 7-4 库 访 问 服务 汇总 
服 3 Wi — BB 

DSINFO 在 窗口 变量 中 显示 一 个 分 区 数据 集 的 信息 

LMCLOSE 关闭 一 个 数据 集 

icone 使 用 新 的 compress Tequest exit 压缩 一 个 分 区 数据 集 ， 如 果 exit 没有 安装 ， 则 使 用 
IEBCOPY 来 进行 压缩 

LMCOPY 复制 分 区 数据 集成 员 或 顺序 数据 集 ， 人 允许 打包 、 加 锁 和 截断 操作 

LMDDISP 显示 一 个 指定 数据 集 列表 ID 的 数据 集 列表 

LMDFREE 移 除 一 个 数据 集 ID 与 一 个 DSNAME LEVEL 和 VOLUME combination 的 连接 
把 一 个 数据 集 ID 与 一 个 DSNAME LEVEL 和 VOLUME combination 相连 接 。 之 后 ， 

LMDINIT 这 个 数据 集 列表 ID 在 其 他 库 通 过 服务 来 处 理 时 被 用 来 标识 DSNAME LEVEL 和 
VOLUME combination 

LMDLIST 生成 一 个 指定 数据 集 列 表 ID 的 数据 集 

LMERASE 删除 ISPF 库 或 者 MVS 数据 集 

LMFREE 释放 一 个 同 指定 DATA-ID 连接 的 数据 集 

LMGET 读 取 一 个 数据 集 的 一 条 记录 

EMISIT 把 一 个 或 多 个 ISPF 库 或 者 以 存在 的 数据 集 同一 个 DATA-ID 连接 起 来 。 之 后 ， 这 个 
DATA-ID 在 其 他 库 通 过 服务 来 处 理 时 被 用 来 标识 数据 集 

LMMADD 添加 一 个 成 员 到 一 个 ISPF 库 或 者 一 个 分 区 数据 集 

LMMDEL 删除 一 个 ISPF 库 或 者 一 个 分 区 数据 集 的 成 员 

LMMDISP 为 下 面 的 数据 集 提 供 成 员 选择 列表 

LMMFIND 查找 一 个 ISPF 库 或 者 一 个 分 区 数据 集 的 成 员 

LMMLIST 生成 一 个 ISPF 库 或 者 一 个 分 区 数据 集 的 成 员 列 表 

LMMOVE 删除 分 区 数据 集成 员 或 者 顺序 数据 集 ， 允 许 打 包 和 自动 截取 选项 

LMMREN 重 命名 ISPF 库 或 者 分 区 数据 集 的 一 个 成 员 

LMMREP 替换 ISPF 库 或 者 分 区 数据 集 的 一 个 成 员 

ESS "i-e ED DE 分 区 数据 集成 员 ， 生成、 存储 或 者 删除 ISPF 的 

LMOPEN 打开 一 个 数据 集 

LMPRINT 可 选 的 固定 格式 ， 来 打印 数据 集 列表 

LMPUT 写 一 个 数据 集 的 一 条 记录 

LMQUERY 提供 与 一 个 指定 DATA-ID 相连 接 的 数据 集 的 信息 


LMRENAME 


重 命名 一 个 ISPF 库 
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4. PDF 组 件 服务 

PDF 组 件 服务 包括 BRIF (浏览 接口 )、BROWSE、EDIT (编辑 接口 )、EDIREC ( 编 
辑 恢复 )、EDIT、VIEW、VIF 和 EDREC (对 EDIT 和 VIEW 编辑 复原 ) 等。 该 类 服务 
汇总 如 表 7-5 所 示 。 


服 务 


表 7-5 PDF 组 件 服务 汇总 
说 — HB 


BRIF 


利用 窗口 提供 的 IO 流程 提供 数据 浏览 功能 。 人 允许 浏览 分 区 数据 集 和 顺序 数据 集 ， 例 如 
子 系统 数据 和 IN-STORAGE 数据 。 而 且 在 浏览 之 前 会 进行 数据 的 预 处 理 


BROWSE 


EDIF 


EDIREC 


EDIT 


EDREC 


VIEW 


VIIF 


用 来 查看 任意 的 ISPF 库 ， 或 者 可 以 用 LMINIT 服务 来 生成 的 数据 集 ， 和 一 些 ISPF 不 支 
持 的 其 他 数据 类 型 。 可 以 浏览 工作 站 和 工作 站 文件 的 主 数据 集 

利用 窗口 提供 的 IO 流程 提供 数据 编辑 功能 。 人 允许 编辑 分 区 数据 集 和 顺序 数据 集 ， 例 如 
子 系统 数据 和 IN-STORAGE 数据 。 而 且 在 编辑 之 前 会 进行 数据 的 预 处 理 

H EDIF 服务 初始 化 一 个 编辑 复原 表 (ISREIRT), 终 止 用 EDIF 服务 来 复原 时 的 PENDING 
状态 

用 来 查看 ISPF 库 ， 和 ISPF 库 的 集合 , 或 者 可 以 用 LMINIT 服务 来 生成 的 数据 集 。EDIT 
服务 提供 一 个 对 PDF 编辑 器 的 接口 , 跳 过 显示 Edit Entry Panel. 也 可 以 编辑 工作 站 和 工 
作 站 文件 的 主 数据 集 

初始 化 一 个 编辑 或 查看 复原 表 。 终止 复原 时 的 PENDING 状态 ,执行 第 一 个 声明 的 动作 
功能 同 EDIT 服务 相似 ， 但 有 下 面 的 不 同 : 

e 必须 使 用 REPLACE 或 者 CREATE 主 命令 来 保存 数据 

e 当 在 VIEW 模式 下 更 改 文 件 后 ， 输 入 END 主 命令 ， 将 提示 是 否 保存 更 改 

利用 窗口 提供 的 vo 流程 提供 数据 查看 (VIEW) 功能 。 人 允许 查看 分 区 数据 集 和 顺序 数 
据 集 ， 例 如 子 系统 数据 和 IN-STORAGE 数据 。 而 且 在 查看 之 前 会 进行 数据 的 预 处 理 


5. 表格 服务 
表格 服务 提供 了 表格 操作 的 各 种 服务 ， 分 为 表 级 服务 和 行 级 服务 。 该 类 服务 汇总 如 
表 7-6 和 表 7-7 所 示 。 


服 


表 7-6 影响 整个 表 的 服务 汇总 
务 说 Hg 


TBCLOSE 关闭 表 ， 假 如 表 被 打开 则 保存 一 个 长 期 的 备份 


TBCREATE 生成 并 开打 一 个 新 表 用 作 处 理 


TBEND 关闭 表 不 保存 更 改 


TBERASE 从 表 输 入 文件 删除 一 个 长 期 表 


TBOPEN 打开 一 个 存在 的 长 期 表 用 作 处 理 


TBQUERY 获取 一 个 表 的 信息 


TBSAVE 在 打开 装填 保存 一 个 表 的 永久 备份 


TBSORT 对 表 做 排序 


TBSTATS 打开 一 个 表 的 统计 信息 
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表 7-7 影响 表 中 行 的 服务 汇总 


服 务 说 HB 
TBADD 在 表 中 添加 一 行 
TBBOTTOM 在 最 后 一 行 添加 CRP， 并 恢复 行 
TBDELETE 从 表 中 删除 一 行 
TBEXIST 利用 键 值 确认 是 否 存 在 某 行 
TBGET 恢复 表 中 的 一 行 
TBMOD 更 新 表 中 的 一 行 ， 或 者 添加 一 个 新 的 行 
TBPUT 如 果 存 在 或 者 键 值 匹 配 则 更 新 行 
TBSARG 同 TBSCAN 或 TBDISPL 一 起 建立 一 个 检索 概要 Csearch argument) 
TBSCAN 检索 行 匹配 一 组 变量 的 表 
TBSKIP 向 前 或 向 后 移动 CRP 指定 的 行 数 ， 然 后 把 CRP 所 在 行 retrieves 
TBTOP 将 CRP 置顶 〈 置 于 第 一 行 起 始 位 置 ) 
TBVCLEAR 把 对 应 表 中 的 变量 的 对 话 框 变量 设置 为 NULL 
6. 变量 服务 


变量 服务 提供 了 传递 和 操作 ISPF 变量 的 各 种 服务 。 如 前 例 所 提 到 的 VGET。 该 类 服 


ri 


-总 如 表 7-8 所 示 。 


表 7-8 可 在 所 有 功能 中 使 用 的 变量 服务 


服 x 说 — BB 
VERASE 从 SHARED POOL 和 /或 PROFILE POOL 移 除 变 量 
VGET 从 SHARED POOL 或 PROFILE POOL 恢复 变量 
VPUT 仅 更 新 SHARED POOL 或 PROFILE POOL 中 的 变量 
表 7-9 仅 在 程序 中 可 以 使 用 的 变量 服务 
服 X Wi — BB 
VCOPY 从 一 个 对 话 框 变量 复制 数据 到 程序 中 
VDEFINE 1E ISPF 中 定义 功能 程序 变量 
VDELETE 移 除 功能 变量 的 定义 
VMASK 把 一 个 MASK 赋 给 一 个 对 话 框 变量 
VREPLACE 用 程序 中 的 数据 更 新 对 话 框 变量 
VRESET 重 置 功 能 变量 
7. 杂项 服务 


杂项 服务 是 ISPF 所 提供 的 其 他 有 用 服务 ， 如 可 以 配置 日 志 登 录 的 LOG 服务 。 该 类 
服务 汇总 如 表 7-10 所 示 。 
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表 7-10 ”杂项 服务 汇总 


B 务 说 — BB 
bonoi m 2 ee ISPF 显示 特定 形式 的 输出 , 或 者 控制 对 话 管理 服务 中 遇 到 的 
FILESTAT 在 连接 的 工作 站 上 提供 有 关 网 站 的 统计 数据 
FILEXFER 向 工作 站 上 传 文件 或 从 工作 站 下 载 文件 
GETMSG 获得 消息 和 相关 信息 ， 并 把 他 们 存储 在 服务 中 指定 的 变量 中 
GRERROR 提供 访问 GDDM 错误 记录 的 地 址 和 GDDM 调用 格式 描述 符 模块 地 址 
GRINIT 初始 化 ISPF/ GDDM 接口 和 可 选 的 请 求 ，ISPF 面板 定义 一 个 GDDM 图 形 领 域 
GRTERM 终止 以 前 建立 的 GDDM 接口 
LIBDEF 在 一 个 活跃 的 ISPF 对 话 中 ， 提 供 一 种 动态 定义 应 用 程序 数据 元 素 文件 的 方法 
m RI es (不 使 用 打印 命令 或 UTILITIES) ISPF 的 列表 


允许 一 个 函数 向 ISPF 的 日 志文 件 中 写 入 一 条 消息 。 用 户 可 以 指定 当 ISPF 终止 时 
日 志 是 否 要 打印 、 保 存 或 删除 


返回 为 一 个 特定 的 面板 上 的 一 个 特定 区 域 的 信息 。 在 变量 中 返回 与 该 区 域 相关 特 
性 的 类 型 、 大 小 和 位 置 

QBASELIB 使 ISPF 对 话 框 获得 指定 DDNAME 的 当前 库 的 信息 

允许 ISPF 对 话 框 ， 向 获取 当前 LIBDEF 定义 信息 ， 这 些 信 息 可 以 被 对 话 框 保 存 ， 


LOG 


PQUERY 


QHIBDEF 用 于 以 后 恢复 任何 可 能 被 覆盖 的 LIBDEF 定义 
TABOPEN 允许 ISPF 对 话 框 中 获得 当前 打开 的 ISPF 的 表 的 列表 。 TBSTATS 或 TBQUERY 
Q 服务 ， 然 后 可 以 用 来 获取 关于 每 个 表 的 更 详细 的 信 
允许 ISPF 对 话 框 , 获得 了 所 有 系统 排 入 队列 列表 , 或 指定 了 条 件 匹 配 的 所 有 系统 
QUERYENQ — | 排 入 队列 的 列表 
TRANS 从 一 个 编码 字符 集 标识 符 “CCSID) 传递 数据 到 另 一 个 
SUSCON 使 用 户 连接 到 工作 站 ， 而 无 须 使 用 ISPSTART 命令 的 GUI 参数 ， 并 从 ISPF 设置 
中 启动 工作 站 连接 面板 


WSDISCON 允许 用 户 从 工作 站 断 开 ， 而 不 必 终 止 ISPF 对 话 


7.3.2 ” 几 个 常用 的 ISPF 服务 


1. ADDPOP 一 一 开启 弹出 窗口 模式 

ADDPOP 服务 的 功能 是 把 随后 会 出 现 的 所 有 弹出 窗口 都 显示 在 一 个 窗口 中 , 来 提示 
对 话 框 管理 者 随后 会 出 现 的 弹出 窗口 。 查 看 ADDPOP 的 所 有 窗口 需 调 用 DISPLAY, 
TBDISPL 或 者 SELECT PANEL 服务 。 

使 用 ADDPOP 服务 时 , 每 一 个 弹出 窗口 可 以 有 设置 一 个 窗口 的 标题 ,标题 是 嵌 在 窗 
框 边框 的 顶部 ， 最 大 只 能 有 一 个 边线 的 长 度 。 如 果 标 题 长 于 窗口 边线 ， 管 理 器 会 将 其 截 
断 。 定 义 窗口 的 标题 ， 是 通过 设置 系统 变量 ZWINTTL 。 

命令 调用 格式 : 
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ISPEXEC ADDPOP [POPLOC(field-name)] 
[ROW (row) ] 
[COLUMN (column) ] 


2. LIBDEF 一 一 定义 程序 库 
LIBDEF 服务 提供 了 应 用 程序 数据 集 的 动态 定义 ， 从 而 使 应 用 程序 的 数据 集 可 以 在 


ISPF 的 对 话 中 使 用 。 这 就 免除 了 在 调用 ISPF 对 话 之 前 要 用 分 配 的 语句 来 定义 所 有 的 应 


月 


昌 数 据 集 的 烦琐 操作 。 


LIBDEF 服务 可 以 被 用 来 定义 应 用 程序 级 的 以 下 库 : 

面板 库 ; 

消息 库 ; 

表 库 ; 

框架 库 ; 

文件 裁剪 输出 库 ; 

用 户 连接 库 ; 

e 图 像 库 。 

用 来 定义 ISPF 的 库 的 DDNAMES， 同 样 用 来 定义 数据 集 上 的 LIBDEF 服务 请 求 。 


ISPPROF 和 ISPF 的 配置 文件 库 在 应 用 程序 级 的 定义 是 不 允许 的 ， 因 为 ISPPROF 包含 用 
户 相 关 的 数据 。 


LIBDEF 服务 提供 了 4 种 方式 来 定义 应 用 程序 级 的 数据 集 : DATASET、EXCLDATA、 


LIBRARY, EXCLLIBR. 


命令 调用 格式 : 


ISPEXEC LIBDEF lib-type [DATASET|EXCLDATA|LIBRARY|EXCLLIBR] 
[ID(dataset-list) |ID(libname)] 
[COND | UNCOND| STACK | STKADD] 

示例 1: DATASET 关键 字 

在 进入 ISPF 之 前 ， 用 户 发 出 下 面 的 ALLOCATE 语句 来 定制 一 个 面板 库 。 


ALLOCATE DATASET('ISPFPROJ.ABC.MYPAN') FILE(ISPPUSR) SHR 
ALLOCATE DATASET('ISPFPROJ.ABC.PANELS') FILE(ISPPLIB) SHR 


接 下 来 , DATASET 关键 字 设 置 LIBDEF 服务 来 定义 一 个 应 用 程序 级 的 面板 库 (分 区 


数据 集 )。 


ISPEXEC LIBDEF ISPPLIB DATASET ID('ISPFPROJ.ABC.APPAN1', 
'ISPFPROJ.ABC.APPAN2') 

示例 2: EXCLDATA 关键 字 

首先 在 进入 SIPF 之 前 定义 用 户 连 接 库 。 


ALLOCATE DATASET('ISPFPROJ.ABC.MYMOD') FILE(ISPLUSR) SHR 
ALLOCATE DATASET('ISPFPROJ.ABC.LLOAD') FILE(ISPLLIB) SHR 
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接 下 来 ， 用 EXCLDATA 关键 字 设 置 LIBDEF 服务 来 定义 一 个 应 用 程序 级 的 连接 库 


〈 分 区 数据 集 )。 


ISPEXEC LIBDEF ISPLLIB EXCLDATA ID ('ISPFPROJ.ABC.APMOD1', 
'ISPFPROJ.ABC.APMOD2') 


示例 3: LIBRARY 关键 字 

首先 在 进入 ISPF 之 前 定义 用 户 连 接 库 。 

ALLOCATE DATASET('ISPFPROJ.ABC.APPAN1', 
'ISPFPROJ.ABC.APPAN2') FILE(APPLIB) SHR 


ALLOCATE DATASET('ISPFPROJ.ABC.MYPAN') FILE(ISPPUSR) SHR 
ALLOCATE DATASET('ISPFPROJ.ABC.PANELS') FILE(ISPPLIB) SHR 


接 下 来 ， 用 LIBRARY 关键 字 设置 LIBDEF 服务 来 定义 一 个 应 用 程序 级 面板 库 。 
ISPEXEC LIBDEF ISPPLIB LIBRARY ID(APPLIB) 


示例 4: EXCLLIBR 关键 字 

首先 在 进入 ISPF 之 前 定义 用 户 连 接 库 。 

ALLOCATE DATASET('ISPFPROJ.ABC.APMODI1', 
'ISPFPROJ.ABC.APMOD2') FILE(APLLIB) SHR 


ALLOCATE DATASET('ISPFPROJ.ABC.MYMOD') FILE(ISPLUSR) SHR 
ALLOCATE DATASET('ISPFPROJ.ABC.LLOAD') FILE(ISPLLIB) SHR 


接 下 来 ， 用 EXCLLIBR 关键 字 设 置 LIBDEF 服务 来 定义 一 个 应 用 程序 级 的 用 户 连 


接 库 。 


接 


ISPEXEC LIBDEF ISPLLIB EXCLLIBR ID(APLLIB) 


3. EDIT 一 一 编辑 数据 集 
EDIT 服务 提供 了 对 PDF 编辑 器 的 接口 , 绕 过 了 对 the Edit Entry Panel 的 显示 。 EDIT 
口 允许 使 用 自己 定义 的 面板 来 显示 数据 ， 可 以 指定 初始 宏和 配置 文件 。 也 可 以 是 用 


EDIT 来 查看 ISPF 库 ， 以 及 使 用 LMINIT 服务 生成 的 数据 集 。 可 以 递归 式 地 使 用 EDIT 
服务 ， 比 如 当 处 在 编辑 窗口 时 ， 再 输入 EDIT 命令 。 


当 在 恢复 模式 (recovery mode) 中 使 用 EDIT 服务 ， 所 做 的 所 有 操作 会 自动 地 记录 


在 一 个 PDF 控制 数据 集中 。 当 发 生 错误 ， 用 户 就 可 以 使 用 控制 数据 集中 的 内 容 来 复原 用 
户 正 在 编辑 的 数据 集 。 


命令 调用 格式 如 下 : 


ISPEXEC EDIT DATASET(dsname) [VOLUME (serial)] 
[PASSWORD (pswd-value)] 
[PANEL (panel-name)] 
[MACRO (macro-name)] 
[PROFILE (profile-name)] 
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[FORMAT (format-name)] 
[MIXED(YES|NO) ] 
[LOCK (YES | NO) ] 
[CONFIRM (YES |NO) ] 
[WS (YES INO) ] 
[PRESERVE] 
[PARM (parm-var)] 

OR 

ISPEXEC EDIT DATAID (dsname) [MEMBER (member-name) ] 


OR 
ISPEXEC EDIT WSFN(ws-filename) [ PANEL (panel-name)] 


示例 为 TELOUT 服务 来 调用 EDIT 服务 , 编辑 数据 集 ISPFPROJ.FTOUTPUT 的 一 个 
成 员 。 
命令 调用 : 


ISPEXEC EDIT DATASET('ISPFPROJ.FTOUTPUT (TELOUT)') WS (YES) 
或 者 


ISPEXEC LMINIT DATAID(EDT) DATASET('ISPFPROJ.FTOUTPUT') 
ISPEXEC EDIT DATAID(&EDT) MEMBER(TELOUT) WS(YES) 


4. LMCOPY 一 一 复制 一 个 数据 集 的 成 员 

LMCOPY 服务 可 以 复制 一 个 分 区 数据 集 的 成 员 或 者 一 个 完整 的 顺序 数据 集 。 可 以 选 
择 性 地 进行 打包 数据 、 对 成 员 加 锁 、 替 换 成 员 或 者 自动 截断 ,但 只 能 对 记录 是 定 长 (fixed- 
record) 或 变 长 (variable- record). 的 数据 集 进 行 打包 操作 。 

命令 调用 格式 : 


ISPEXEC LMCOPY FROMID(from-data-id) 

FROMMEM (from-member-name) ] 
TODATAID (to-data-id) 

TOMEM (to-member-name)] 
REPLACE] 

PACK] 

TRUNC] 

LOCK] 

SCLMSET (YIN) ] 
ALIAS|NOALIAS] 


示例 : 调用 LMCOPY 服务 来 复制 所 有 字母 “ 工 ” 开 头 的 成 员 ， 所 在 的 数据 集 的 data 
ID 为 变量 DDVAR， 目 标 数 据 集 的 data ID 为 变量 DDVAR2。 同 样 名 字 的 成 员 会 被 替换 。 
同时 可 以 使 用 打包 和 截断 操作 。 

命令 调用 : 


136 | 大 型 主机 系统 管理 REXX 编程 详解 


ISPEXEC LMCOPY FROMID(&DDVAR) FROMMEM(L*) + 
TODATAID(&DDVAR2) REPLACE PACK TRUNC 


更 多 的 ISPF 服务 描述 ， 可 以 参阅 IBM 白皮书 TSPF Service Guide. 


7.4 I|SPF 对 话 设计 架构 
7.4.1 “控制 流 和 数据 流 


本 节 介 绍 怎样 去 控制 一 个 ISPF 会 话 , 包括 开始 和 结束 一 个 会 话 以 及 对 ISPF 的 使 用 。 
7-9 显示 了 对 话 控制 和 数据 流 。 在 一 个 ISPF 会 话 开 始 ， 可 以 使 用 ISPSTART 命令 
或 者 使 用 SELECT 选择 面板 来 调用 一 个 对 话 功 能 。 图 中 也 显示 了 ISPF 服务 同 各 个 对 话 


元 素 的 交互 。 
(4SPSTART 命 令 ) 


TE 
ISPF 初 始 化 对 话 管理 器 
| Panel 
i 对 话 显示 library 
SELECT 服务 二 
服务 [777 - Message 
library 


| 
| [| ee] 
1 . " Skeleton 
i n 9j library 
对 话 功能 l | i 
函数 Output 
library 


变量 服务 Profile 
---- 一 榨 制 流 


数据 流 
表格 服务 门 ] Data 
library J 


图 7-9 ISPF 对 话 程序 的 控制 流 和 数据 流 ? 


742 ”对 话 组 织 方式 


ISPF 对 话 可 以 有 多 种 组 织 方式 来 满足 用 户 的 需求 ， 下 面 介绍 两 种 常用 的 方法 。 


(D 摘自 IBM 白皮书 /OS VIRÓ.0 ISPF Dialog Developer Guide and Reference 中 图 8。 
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1. 经 典 组 织 方式 一 
一 个 典型 的 对 话 组 织 方式 在 图 7-10 给 出 。 对 话 流程 从 上 至 下 ,开始 于 调用 主 选 项 菜 
单 ， 用 户 在 主 选 项 菜单 中 做 出 选择 来 调用 一 个 功能 或 者 显示 下 一 个 下 层 菜单 。 每 一 个 下 
层 菜单 同样 可 以 启动 一 个 功能 或 者 显示 另 一 个 下 层 菜单 。 
开始 
Option Menu) 
1 1 
对 话 功能 函数 子 菜单 


(Dialog Function) (Lower-level Menu) 


子 菜单 
(Lower-level Menu) 


ria 


对 话 功能 函数 


(Dialog Function) 


Data Entry 
Panels 


图 7-10 对话 框 组 织 方式 1? 


2. 经 典 组 织 方式 二 

图 7-11 显示 了 另外 一 种 窗口 组 织 方式 ， 首 先 调用 了 一 个 对 话 的 功能 函数 ， 这 个 功能 
函数 执行 程序 的 初始 化 ， 通 过 数据 输入 面板 (data-entry panels) 来 提示 基本 信息 给 用 户 ， 
然后 应 用 程序 通过 调用 SELECT 服务 来 启动 选择 处 理 过 程 显示 主 选项 菜单 。 


对 话 框 功能 (Caras i) 


菜单 


i i 1 
(x 菜单 ( 对话 框 功能 ) 


1 b 
对 话 框 功能 : 


对 话 框 功能 m 菜单 ] 


和 


图 7-11 对 话 框 组 织 方式 22 
743 ”什么 是 SELECT 服务 
ISPF 会 话 的 功能 指示 程序 中 ,通常 需要 调用 SELECT 服务 ,SELECT 服务 是 一 个 ISPF 


(D 摘自 IBM 白皮书 2/OS VIRÓ.0 ISPF Dialog Developer Guide and Reference 中 图 6。 
© ”摘自 IBM 白皮书 2/OS VIR6.0 ISPF Dialog Developer s Guide and Reference 中 图 7。 
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服务 ， 它 用 来 运行 一 个 会 话 执行 过 程 。 用 户 通过 指定 SELECT 服务 的 具体 选项 参数 来 确 
定 会 话 执行 的 逻辑 。 通 过 在 REXX 程序 中 使 用 SELECT 服务 ， 可 以 通过 执行 程序 或 者 命 
令 来 完成 相应 功能 ， 或 者 通过 调用 面板 来 显示 应 用 逻辑 。 

和 ISPSTART 命令 一 样 ，SELECT 命令 同样 也 有 PANEL. CMD 和 PGM 三 个 参数 选 
项 。 通 过 这 三 个 选项 ， 来 指定 会 话 程序 在 运行 过 程 中 调用 的 面板 (panel) 或 者 执行 的 功 
能 (CMD 或 者 PGMD. 在 REXX 程序 中 使 用 SELECT 命令 来 调用 名 为 ISPAPTT 的 ISPF 
会 话 程序 ， 例 如 : 


'ISPEXEC SELECT PGM(ISPAPTT) PARM (APLTT)' 


通常 ， 在 REXX 程序 中 可 以 使 用 程序 逻辑 控制 语句 来 完成 ISPF 会 话 的 执行 ， 流 程 
如 图 7-12 所 示 。 


(ISPSTART ) 
Y 
开始 ISPF 
选择 子 菜 显示 菜 
选择 子 菜单 SELECT 服务 显示 菜单 
显示 对 话 显示 


data-entry panel | ”服务 
选择 子 菜单 或 者 功能 | 对 话 功能 函数 | 或 者 TBDISPL | 


(Dialog Function) 


图 7-12 REXX 程序 控制 ISPF 会 话 的 执行 


744 ”如 何 调用 SELECT 服务 


SELECT 服务 可 以 用 以 下 几 种 方式 调用 : 

(1) 在 初始 化 过 程 中 ， 对 话 管理 器 会 自动 调用 SELECT 服务 来 启动 第 一 个 对 话 框 。 
ISPSTART 命令 最 初 指定 的 关键 字 会 传递 给 SELECT 服务 。 

说 明 : ISPSTART 调用 的 对 话 框 时 ， 直 到 ISPF 已 完全 初始 化 ，ISPF 的 错误 处 理 才 生 
效 。 所 以 当 确 认 执行 后 一 直 没 有 发 生 严重 的 错误 处 理 ，ISPF 才 被 认为 是 完全 初始 化 了 。 

(2) 如 果 进 入 分 屏 模 式 , 对 话 框 管理 器 再 次 调用 SELECT 服务 , 并 再 次 从 ISPSTART 
命令 传递 已 选择 的 关键 字 给 SELECT 服务 。 这 将 导致 已 在 ISPSTART 命令 中 指定 了 参数 
的 第 一 个 屏幕 ， 又 在 一 个 新 的 逻辑 屏幕 上 被 初始 化 。 

G) SELECT 服务 可 用 递归 的 方式 调用 自身 。 当 用 户 选择 一 个 选项 菜单 SELECT 服 
务 调 用 了 SELECT 服务 。 在 这 种 情况 下 ， 选 择 关 键 字 在 菜单 的 面板 定义 则 被 重新 指定 给 
SELECT 服务 。 

(4) SELECT 服务 可 以 从 一 个 对 话 框 函 数 中 被 调用 。 在 这 种 情况 下 ， 选 择 关 键 字 是 
通过 调用 顺序 参数 赋 给 SELECT 服务 的 。 
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74.5 ISPSTART 命令 启动 ISPF 对 话 


可 以 使 用 ISPF、PDF 或 ISPSTART 命令 ， 同 时 设置 CMD、PGM 或 PANEL 等 关键 


字 来 启动 ISPF 或 其 他 对 话 框 。ISPF 是 TSO 环境 下 运行 的 命令 过 程 。 它 可 由 TSO 终端 或 
CLIST\REXX 命令 过 程 来 运行 。 在 运行 一 个 对 话 框 之 前 ， 该 对 话 框 中 所 用 到 的 数据 集 必 
须 事 先 定义 到 ISPF 库 中 。 


1. ISPSTART 命令 语法 
通过 ISPSTART 命令 可 以 来 调用 ISPF 对 话 程序 。 用 户 通过 ISPSTART 命令 的 参数 来 


指定 首次 显示 的 菜单 或 首次 接收 的 函数 。 


假如 参数 没有 被 指定 ，ISPSTART 命令 默认 显示 DEFAULT. PRIMARY PANEL 关键 


字 指 定 的 主屏 幕 ， DEFAULT PRIMARY PANEL 关键 字 是 在 ISPF 配置 表 中 进行 设置 的 。 
这 个 关键 字 通常 设置 为 ISP@MSTR。 


通过 如 下 命令 可 调用 ISPF 对 话 程序 。 


ISPSTART 

PANEL(panel-name) [OPT (option)] [ADDPOP]} 
CMD (command parml parm2) [LANG(APL|CREX)]] 
PGM (program-name) [PARM (parameters)]} 

WSCMD (workstation-command) 

MODAL | MODELESS] 

WSDIR (dir)] 

MAX|MIN] 

VISIINVIS]]) 

WSCMDV (var name) 

MODAL | MODELESS] 

WSDIR (dir) ] 

MAX | MIN] 

VISIINVIS] } 

GUI (LU:address:tpname|IP:address:port|,FI:)|,NOGUIDSP)] 
TITLE (title)] 

GUISCRW(screen-width)] 

GUISCRD (screen-depth)] 

FRAME (STD| FIX| DLG) ] 

CODEPAGE (codepage)] [CHARSET (character set)] 
BKGRND (STD| DEG) ] 

NEWAPPL[(application-id)]] 

SCRNAME (screen-name)] 

TEST | TESTX | TRACE | TRACEX] 

NOLOGO | LOGO (1ogo-panel-name)] 

BATSCRW (screen-width) ] 

BATSCRD (screen-depth) ] 

BDISPMAX (max-number-of-displays)] 
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[BREDIMAX (max-number-of-redisplays)] 

[BDBCS] 

[DANISH | ENGLISH | GERMAN | JAPANESE | PORTUGUE | SPANISH | KOREAN | 
FRENCH | ITALIAN | CHINESET | CHINESES | SGERMAN | UPPERENG] 


示例 : 若 调用 指示 功能 名 为 DLGPROCI 的 对 话 ， 可 通过 输入 命令 : 
ISPSTART CMD(DLGPROC1 parml parm2 ..) 


2. ISPSTART 命令 使 用 

ISPSTART 命令 可 以 指定 要 显示 的 第 一 个 菜单 ， 或 者 指定 要 接收 控制 的 第 一 个 功能 
程序 。 
示例 : 进入 ISPF 时 首先 调用 名 为 ABC 的 面板 , 面板 定义 必须 事先 存储 在 面板 库 里 。 


ISPSTART PANEL (ABC) 
示例 : 下 例 中 调用 ISPF， 指 定 对 话 框 的 处 理 是 从 一 个 名 为 GHI 的 程序 函数 开始 。 
ISPSTART PGM(GHI) 


如 果 指 定 的 CMD (命令 ) 或 ISPSTART 命令 行 关 键 字 不 止 一 次 ， 那 么 ISPF 使 用 指 
定 的 最 后 一 个 值 。 例 如 : 


ISPSTART PANEL(PANELA) PANEL (PANELX) 
ISPF 把 上 面 的 命令 解释 为 : 


ISPSTART PANEL (PANELX) 


ISPSTART 命令 通常 是 在 TSO 登录 期 间或 在 命令 过 程 中 书写 。 假 设 用 户 从 PCOMM 
终端 上 登录 TSO, 登录 时 调用 一 个 名 为 DBAPROC 的 命令 过 程 , 过 程 DBAPROC 首先 为 
ISPF 分 配 库 ， 然 后 它 使 用 ISPSTART 命令 开始 ISPF 的 处 理 。 过 程 DBAPROC 则 不 能 使 
用 ISPF 对 话 框 服务 ， 因 为 它 尚未 在 ISPF 下 运行 。 


74.6 ISPF 对 话 框 终止 


当 发 生 以 下 情况 时 ，ISPF 对 话 框 会 终止。 

CD 假如 一 个 对 话 函数 调用 了 SELECT 服务 ， 控 制 反馈 给 了 函数 并 且 函 数 能 够 继续 
执行 。 

(2) 假如 一 个 菜单 调用 了 SELECT 服务 ， 当 菜单 被 重复 显示 时 ， 或 者 在 面板 定义 中 
执行 了 INIT 部 分 。 

G) 如 果 终 止 了 多 屏 模 式 ， 逻 辑 屏 幕 上 原 有 的 对 话 框 结束 ， 其 他 逻辑 屏幕 扩展 到 
全 屏 。 

(4) 当 终止 ISPF 时 ， 显 示 ISPF 终止 面板 或 使 用 ISPF SETTINGS 作为 列表 /日 志 处 
理 的 默认 窗口 。 
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如 果 有 以 下 情况 ，ISPF 则 会 显示 终止 屏幕 。 
(5) 对 话 框 是 由 菜单 的 DISPLAY 启动 的 ， 并 且 结 束 时 在 菜单 上 输入 END 命令 。 
C6) 对 话 框 是 由 执行 函数 启动 的 ， 并 且 函 数 结束 的 返回 值 为 0。 
在 终止 对 话 框 的 时 候 ，ISPF 返回 给 应 用 程序 的 错误 码 如 下 。 
e 908: 表示 ZISPFRC 值 不 可 用 。 
e 920: 表示 ISPSTART 命令 语法 不 正确 。 
e 985: 表示 试图 在 批 处 理 模式 下 启动 一 个 GUI， 但 是 没有 与 WORKSTATION 的 
连接 。 
e 987: 表示 试图 用 GUISCRW 或 者 GUISCRD 启动 一 个 GUI， 但 是 GUI 的 初始 化 
失败 。 
e 988: 表示 在 初始 化 IKJSATTN 过 程 中 发 生 错误 。 
e 989: 表示 当 ISPF 仍然 运行 在 GUI 模式 时 ，ISPF C/S 组 件 窗口 被 关闭 。 
e 990: 表示 在 批 处 理 模 式 下 发 生 错 误 。 假如 ZISPFRC 没有 被 预先 设 定 ，ISPF RE 
一 个 严重 的 错误 并 终止 了 组 件 的 运行 。 
e 997: 表示 不 可 纠正 的 TPUT 错误 。 
e 998: 表示 ISPF 初始 化 错误 。 产 生 998 错误 的 原因 可 能 为 : 
» 要 用 到 的 ISPF 数据 元 素 库 没有 被 预先 准备 好 。 
a 没有 正确 地 打开 ISPF 数据 元 素 库 。 
a ISPF 数据 元 素 库 包含 不 正确 的 数据 集 类 型 。 
a 错误 导入 文本 模块 。 
a 循环 调用 ISPF 的 call 语句 。 
e 999; 表示 ISPF 环境 不 可 用 。 产 生 999 错误 的 原因 可 能 》 
» TSO/MVS 不 可 用 。 
a 不 支持 的 屏幕 尺寸 。 


7.5 I|SPF 会 话 案 例 


754 ISPF 对 话 程序 案例 


由 务 逻辑 : 显示 用 户 面板 TP01( 见 图 7-14), 要 求 用 户 输入 用 户 名 , 用 户 在 面板 TP01 
上 输入 用 户 名 ， 然 后 回 车 ， 系 统 将 显示 面板 TPO 〈 见 图 7-16) 欢迎 用 户 并 在 面板 TP02 
上 提供 2 个 选项 让 用 户 选 择 ,选项 1 为 提交 JCL 作业 , 选项 2 为 进行 DB2 表 操 作 。 用 户 
选择 1 系统 则 显示 一 个 JCL 作业 内 容 ， 用 户 输入 SUBMIT 提交 作业 ， 系 统 则 显示 面板 
TP03( 见 图 7-19) 反馈 作业 提交 结果 ; 若 用 户 选择 2 系统 则 显示 面板 TP04( 见 图 7-23), 
提示 用 户 输入 ID. 回 车 后 可 以 显示 用 户 信 息 ; 如 果 用 户 选 择 其 他 选项 则 弹出 一 个 错误 信息 
框 〈 见 图 7-21)。 
要 求 用 户 编写 5 个 REXX 程序 。 
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e TROI: 接受 用 户 输 入 用 户 名 跳 往 TRO 程序 。 

e TRO2: 让 用 户 选 择 执 行 并 检查 JCL 或 是 操作 DB2。 

e TR03: 通过 REXX 直接 操作 SDSF， 找 出 指定 JOBID 的 所 有 信息 。 

e TR04: 通过 REXX 直接 对 DB2 执行 查询 等 操作 。 

e ERRPOPUP: 弹出 错误 信息 框 。 

通过 该 案例 ， 用 户 可 以 学 习 : 

e 基本 的 面板 (Panel) 画 法 。 

e 如 何在 REXX 中 使 用 TSO 命令 和 ISPF 服务 (通过 ISPEXEC 命令 )。 

e REXX 参数 的 传递 。 

e 使 用 POP-UP 信息 框 。 

。 熟悉 REXX 中 逻辑 的 判断 。 

本 案例 中 设计 了 4 个 ISPF 面板 TP01、TP02、TP03 和 ERRORPOP 和 5 个 REXX 控 
WIFE TROl. TRO2. TR03. TR04 和 ERRPOPUP。 详 细 介 绍 如 下 。 


1. 面板 设计 
假设 面板 定义 存放 在 TJA0095.REXX.PANEL 库 〈 见 图 7-13) 中 。 


Menu Functions Confirm Utilities Help 


ISRUDSM EDIT TJA0095.REXX.PANEL Row 00001 of 00004 
Name Prompt Size Created Changed ID 
ERRORPOP 
TPO1 
TP02 
TP03 


**End** 


图 7-13 TJA0095.REXX.PANEL 库 


j 板 1 TP01 运行 效果 和 代码 如 图 7-14 所 示 。 


TP01 


TONGJI REXX SHOW 


COMMAND ===> 


Please enter your name to login 


ID TEO2 
NAME 


Fd 7-14 TP01 面板 示意 


TP01 对 应 的 面板 定义 代码 如 图 7-15 所 示 ， 用 户 在 面板 上 输入 的 姓名 将 会 放 在 变量 
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Edit Edit Settings Menu Utilities 


ISREDDE2 TJA0095.REXX.PANEL(TPO1) - 01.00 


one dob Hee oH ee e 66 ** Top of Data (44 4H OOo Oei 


000001 )ATTR 

000002 % TYPE (TEXT) COLOR(WHITE) CAPS (OFF) 
000003 * TYPE(TEXT) CAPS(OFF) INTENS (HIGH) 
000004 ! TYPE(TEXT) CAPS(OFF) INTENS (HIGH) 
000005 _ TYPE(INPUT) PAD(' ') INTENS (HIGH) 
000006 @ TYPE (NEF) CAPS (ON) PADC (USER) 
000007 # TYPE (OUTPUT) PAD(' ") CAPS (OFF) CO 
000008 ? TYPE (NT) 

000009 )BODY WIDTH(80) CMD(ZCMD) EXPAND (//) 
000010 * 

000011 !/ /TONGJI REXX SHOW/ / 

000012 * 

000013 *COMMAND ===>@ZCMD 

000014 * 

000015 * 

000016 $/ /Please enter your name to login/ / 
000017 * 

000018 * 

000019 * 

000020 * 

000021 */ /ID #uid i 

000022 */ /NAME uname *// 

000023 * 

000024 )PROC 

000025 

000026 )end 


kkkkkk 


kkkkkkkkk*žkkkkkkžkkkkkkžžkž* Bottom of 


图 7-15 ”TP01 面板 定义 代码 


面板 2 TP02 运行 效果 和 代码 如 图 7-16 所 示 。 


TP02 


JOB SELECT PANEL 


Welcom, GAOZHEN ,Please select what to do 


Your Choice: 


l.Submit a JCL and check its output 
Please submit the job and record JOBID 


2.Select data from a DB2 


Compilers Test Help 
Columns 00001 00072 
SKIP (ON) 
COLOR (GREEN) SKIP (ON) 
COLOR (BLUE) SKIP (ON) 
COLOR (TURQ) 


LOR (YELLOW) JUST (LEFT) 


Data 44*A4A4AXkXRAkAAAAAAXAXAAARAAA 


table 


图 7-16 TPO 面板 示意 
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TP02 对 应 的 面板 定义 代码 如 图 7-17 所 示 。 选 项 内 容 将 放 在 变量 C 中 。 


ISREDDE2 TJA0095.REXX.PANEL(TP02) - 01.00 Columns 00001 00072 
AAAA kkkkkkkkkkkkkkkkkkkkkkkkkkkkk Top of Data (449 dd! ipdpbi dodo eee 
000001 )ATTR 

000002 $ TYPE(TEXT) COLOR(WHITE) CAPS(OFF) SKIP(ON) 

000003 * TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(GREEN) SKIP(ON) 


000004 ! TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(BLUE) SKIP(ON) 
000005 . TYPR (TNPUT) PAD(' ') INTENS(HIGH) COLOR (TURQ) 

000006 8 TYPE (NEF) CAPS(ON) PADC (USER) 

000007 # TYPE (OUTPUT) PAD(' ') CAPS(OFF) COLOR (YELLOW) JUST (LEFT) 
000008 ? TYPE (NT) 

000009 )BODY WIDTII(80) CMD(ZCMD) EXPAND (//) 

000010 * 

000011 !/ /JOB SELECT PANEL/ / 

000012 * 

000013 *COMMAND ===>@ZCMD 

000014 * 

000015 * 

000016 */ /Welcom,f&uname *,Please select what to do/ / 

000017 * 

000018 * 

000019 * 


000020 */ / Your Choice: C* /4 
000021 */ /$1.Submit a JCL and check its output / 4 
000022 !/ / Please submit the job and record JOBID/ / 
000023 * 

000024 */ /$2.Select data from a DB2 table / 4 
000025 * 

000026 * 

000027 * 

000028 )PROC 

000029 

000030 )end 


类 类 炎炎 炎炎 类 类 天天 类 天 类 炎炎 天 炎炎 炎炎 炎炎 天 炎炎 炎炎 炎炎 类 类 类 炎炎 Bottom of Data (X 9eceokdoek dele ekle e e de de e de e 


图 7-17 TP02 面板 定义 代码 


如 果 在 TP02 面板 中 选择 1 提交 JCL 作业 , 则 系统 会 显示 如 图 7-18 所 示 的 JCL 作业 ， 
用 户 可 以 在 命令 行 上 输入 SUBMIT 提交 作业 。 


File Edit Edit Settings Menu Utilities Compilers Test Help 


ISREDDE2 TJA0095.REXX.JCL(VSAMDEF) - 01.01 Columns 00001 00072 
biitit Ebsikkbiikiéeikiikiiikiéikiéit Top of Data € ene 
000100 //TJA0095A JOB ACCT#, 'SHICHU',CLASS-A,NOTIFY-&SYSUID, 

000200 // MSGCLASS-A, MSGLEVEL- (1, 1) 

000300 //STEPl EXEC PGM-IDCAMS 

000400 //SYSPRINT DD SYSOUT-* 

000500 //8Y8IN DD * 

000600 DELETE TJA0095.VSAM.KSDS1 

000700 SET MAXCC=0 

000800 DEFINE CLUSTER - 

000900 (NAME(TJA0095.VSAM.KSDS1) - 

001000 INDEXED - 


图 7-18 JCL 作业 代码 
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001100 VOLUME (BX3D61) - 
001200 RECORDS(100,10) - 

001300 RECORDSIZE(10 20) - 

001400 CONTROLINTERVALSIZE(4096) - 
001500 KEYS (1,1)) 

001600 // 


dokkdok k kkkkkkkkkkžkkkkkkkkžkžžžkžž*ž*ž Bottom of Data ***9xeeeieeieeeeeieebeeieeeer] 


Command ===> SUBMIT Scroll ===> CSR 


E 7-18 CD 
作业 提交 之 后 系统 会 显示 面板 TP03， 显 示 作 业 的 提交 结果 ， 如 图 7-19 所 示 。 


TP03 
HELLO 


COMMAND ===> 


Check the jobs output 


JobID: J0012479 
JOBNAME : TE02A 
JOBOWNER: TE02 
RENTCODE: CC 0000 


Information: 


图 7-19 TP03 面板 示意 
TP03 面板 的 定义 代码 如 图 7-20 所 示 。 


File Edit Edit Settings Menu Utilities Compilers Test Help 


ISREDDE2 TJA0095.REXX.PANEL(TP03) - 01.00 Columns 00001 00072 
kkkkkk dokdekkekekokkokdekekkeekkeekeeekekkk* Top of Data JXX9decoooeeoeecooooeoeeeeeeeeer 
000001 )ATTR 

000002 $ TYPE(TEXT) COLOR(WHITE) CAPS(OFF) SKIP(ON) 

000003 * TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(GREEN) SKIP(ON) 


000004  ! TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(BLUE) SKIP (ON) 
000005 _ TYPE(INPUT) PAD(' ') INTENS(HIGH) COLOR(TURQ) 

000006 @ TYPE(NEF) CAPS(ON) PADC(USER 

000007 # TYPE(OUTPUT) PAD(' ') CAPS(OFF) COLOR (YELLOW) JUST (LEFT) 
000008 ? TYPE (NT) 

000009 )BODY WIDTH(80) CMD(ZCMD) EXPAND(// 

000010 * 

000011 !/ /HELLO #USER/ / 

000012 * 


000013 *COMMAND ===>@ZCMD 
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000014 * 
000015 * 
000016 $/ /Check the jobs output/ / 

000017 * 

000018 * 

000019 * 

000020 * 

000021 * 

000022 */ /JOBNAME :#jobname * / 
000023 */ /JOBOWNER: $jobowner* / 
000024 */ /RENTCODE: 4retncode* / -$ 
000025 * 

000026 */ /Information:finform / 4 
000027 * 

000028 * 

000029 )end 


dekdokdek oko ** Bottom of Data *J9),9€Óboxdoiokckokdooeckekeiekeieeeek ek 


/ /JobID: jobidt * £3 


VM 


BI 7-20 (5D 


如 果 在 TPO2 面板 中 选择 其 他 选项 ， 如 3， 则 系统 会 弹出 错误 信息 框 ， 如 图 7-21 
所 示 。 


| ERRPOPUP Please enler again! | 


图 7-21 错误 信息 框 示意 
图 7-21 对 应 的 信息 框 ERRPOPUP 定义 代码 如 图 7-22 所 示 。 


File Edit Edit Settings Menu Utilities Compilers Test Help 


TSREDDE2 TJA0095.REXX.PANEL(ERRPOPUP) - 01.00 Columns 00001 00072 
Ok dek kkkkkkkkkkkkkkkkkkkkkikkkkkė* Top of Data J*€eeeeeeeeeoooooooooeeieieioex] 
000001 )ATTR 

000002 $ TYPE(TEXT) COLOR(WHITE) CAPS(OFF) SKIP(ON) 

000003 * TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(GREEN) SKIP(ON) 


000004 ! TYPE (OUTPUT) PAD(' ') CAPS(OFF) COLOR(YELLOW) JUST (LEFT) 
000005 — TYPE(INPUT) PAD(' ') INTENS(HIGH) COLOR(TURQ) 

000006 @ TYPE (NEF) CAPS (ON) PADC (USER) 

000007 # TYPE (AB) 


000008 ? TYPE (NT) 
000009 )BODY WINDOW (40,1) 
000010 !POPERR 

000011 )END 


kkkkk*  dekokeekekekekeekekeeieiekeieeeeeeeeee* Bottom of Data *Y*Q9*9*Xddadeekdokeookeoieeekekeieieoeek] 


图 7-22 错误 信息 框 定义 代码 


如 果 在 TPO 面板 中 选择 2 在 DB2 表 里 插入 数据 , 则 系统 会 显示 面板 TP4, 如 图 7-23 
所 示 。 查 询 DB2 表 数 据 ， 根 据 用 户 ID 显示 用 户 姓名 等 信息 。 
TP04 面板 的 定义 代码 如 图 7-24 所 示 。 


TP04 


COMMAND 


000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 


Edit Edit Settings Menu Utilities Compilers Test Help 
TJA0095.REXX.PANEL(TPO4) - 01.01 Columns 00001 00072 
doekddopbeebeoeeeebeeeeeeH eet Top of Data C884 kA4& 4 A44kARAXKAEAXKAAKAXAAAA 
)ATTR 
$ TYPE(TEXT) COLOR(WHITE) CAPS(OFF) SKIP(ON) 


000009 )BODY WIDTH(80) CMD(ZCMD) EXPAND(//) 


000010 
000011 
000012 
000013 
000014 
000015 


000016 $/ /CHECK USER INFORMATION/ / 


000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 


dokkdekek kkkkkkkkkkžkkkkkkkkkkkkkžž*ž*ž* Bottom of Data **XX &Xoookokookokookekoiekeeiekeekek 


* 
! 


8 
i 
? 


1/ 


* 


*COMMAND ===>@ZCMD 


* 
* 


* 
* 

sy 
*/ 
* 

*/ 
XJ 


s*y 
* 


* 


)EN 
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SDSF JOB STATUS 


CHECK USER INFORMATION 


PLEASE INPUT USER ID HERE: 
USERID: 


USER NAME 
USER MOBILE: 


SQLCODE 


图 7-23 ”数据库 操作 面板 


TYPE (TEXT) CAPS (OFF) INTENS (HIGH) COLOR (GREEN) SKIP (ON) 
TYPE (TEXT) CAPS (OFF) INTENS(HIGH) COLOR (BLUE) SKIP (ON) 
TYPE (INPUT) PAD(' ') INTENS(HIGH) COLOR (TURQ) 

TYPE (NEF) CAPS(ON) PADC (USER) 

TYPE (OUTPUT) PAD(' ') CAPS(OFF) COLOR (YELLOW) JUST (LEFT) 
TYPE (NT) 


/SDSF JOB STATUS/ / 


/PLEASE INPUT USER ID HERE: /4 
/USERID: RID * 4/4 
/USER NAME :#RNAME *// 
/USER MOBILE: 4&RMOBILE */ 4 
/SQLCODE : INFORM /4 
D 


Kd 7-24 TP04 面板 定义 代码 
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2. REXX 控制 程序 

实现 业务 逻辑 的 REXX 控制 程序 存放 在 TJA0095.REXX 库 中 ， 该 库 中 有 5 个 成 员 ， 
如 图 7-25 所 示 。 其 中 成 员 TRO 用 于 接受 用 户 输入 用 户 名 跳 往 TR02 程序 ， 成 员 TR02 
用 于 让 用 户 选 择 执 行 并 检查 JCL 或 是 操作 DB2; 成 员 TR03 用 于 通过 REXX 直接 操作 
DSF， 找 出 指定 JOBID 的 所 有 信息 ; 成 员 TR04 通过 REXX 直接 对 DB2 执行 查询 等 操 
作 ; 成 员 ERRPOPUP 用 于 弹出 错误 信息 框 。 


e 


Menu Functions Confirm Utilities Help 

ISRUDSM EDIT TJA0095.REXX Row 00001 of 00008 
Name Prompt Size Created Changed ID 
ERRPOPUP 
TRO1 21 2011/10/10 2011/10/12 18:31:01 TJA0095| 
TR02 
TR03 33 2011/10/10 2011/10/17 00:45:24 TE02 
TRO4 
**End** 


图 7-25 TJA0095.REXX 库 


TR01 程序 内 容 如 图 7-26 所 示 。 


File Edit Edit Settings Menu Utilities Compilers Test 


ISREDDE2 TJA0095.REXX(TR01) - 01.02 Columns 00001 00072 
KAkkkk kkkkkkkkkkkkkkkkkkkkkkkkkkkkž*k Top of Data XXeeeeeeobeoooeeeiooiooii eek 
000001 /* REXX */ 

000003 uid-USERID() 

000005 ADDRESS TSO 

000006 "Profile noprefix" 

000008 ADDRESS TSPEXEC 

000009 "CONTROL ERRORS RETURN" 

000011 /* Define the panel lib, from where panels are retrieved */ 

000012 panellib = 'tja0095.REXX.PANEL' 

000013 "ISPEXEC LIBDEF ISPPLIB DATASET ID('"panellib"')" 

000015 /* Send panel TPO1 from the ISPPLIB */ 

000016 "DISPLAY PANEL(TPO1)" 

000018 /* Afert you've inserted your name, call the main choice panel */ 
000019 RC-TR02 (uname) 

000021 RETURN O 


dekdekdek kdekddedkkdekokd dk dei k**** Bottom of Data ***d4dd9d 49 4 00 00 & 


Fd 7-26 TROI 程序 内 容 


TR02 程序 内 容 如 图 7-27 所 示 。 
TR03 程序 内 容 如 图 7-28 所 示 。 
TR04 程序 内 容 如 图 7-29 所 示 。 
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File Edit Edit Settings Menu Utilities Compilers Test Help 


ISREDDE2  TJA0095.REXX(TRO2) - 01.00 Columns 00001 00072 
biitit Jd E HG E HG E 9 9** Top of Data J*9J)eeid nnde 
000100 /* REXX */ 

000310 uname-Arg(1) 

000500 ADDRESS ISPEXEC 

000510 "DISPLAY PANEL (TP02)" 

000521 RC-4 

000523 /* If the choice is neither 1 or 2, send a pop up window */ 

000524 DO WHILE RC<>0 

000530 SELECT 


000540 WHEN C-1 THEN DO 
000550 RC-TRO03 () 
000560 END 

000570 WHEN C-2 THEN DO 
000580 RC-TRO04 () 
000590 END 

000592 OTHERWISE DO 
000593 ERRPOPUP() 
000594 C='' 

000595 "DISPLAY PANEL (TP02)" 
000596 RC=4 

000597 END 

000598 END 

000599 END 


000700 RETURN RC 


ek dk ek kkkkkkkkkkkkkkkkkkkkkkkkkż** Bottom of Data **mQ9 X44 9 99 9 4*9 4 9 9 9 d ek 


图 7-27 TR02 程序 内 容 


Edit Settings Menu Utilities Compilers Test 


ISREDDE2 TJA0095.REXX(TRO3) - 01.02 Columns 00001 00072 
ookbkdek dobkcdelbecieodeeeeeeeeedeeeeeeec Top. of Data JXeeeceeceeeoeecdedoodeodoeeer 
000100 /* REXX */ 

000120 /*View a dataset then submit it*/ 

000300 Address ISPEXEC 

000400 "view dataset("'tja0095.REXX.JCL(VSAMDEF) '")" 

000510 /*Display the panel for the first time*/ 

000600 ADDRESS ISPEXEC 

000610 "DISPLAY PANEL (TP03)" 

000630 /*Access SDSF via REXX*/ 

000640 /*To get the job's information from the JOBID we specified*/ 

000700 rc-isfcalls ("ON") 

000710 isfowner-USERID() 

000720 

000800 ADDRESS SDSF "ISFEXEC ST" 

000900 If rc<>0 Then Exit 20 

001000 

001100 jobfind-0 

001200 Do ix-1 to isfrows 

001810 If JOBID.ix-jobidt Then Do 


001820 jobname-JNAME.ix 
001830 jobowner-OWNERID.ix 
001840 retncode-RETCODE.ix 
001841 jobfind=1 

001850 End 

002300 End 


图 7-28 TRO 程序 内 容 
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002400 rc-isfcalls("OFF") 

002402 /*Verify whether the job is found or not*/ 
002403 If jobfind-0 Then Do 

002404 inform-jobidt "not found!" 

002405 End 

002407 /*Display the panel for the second time*/ 
002408 ADDRESS ISPEXEC 

002409 "DISPLAY PANEL(TP03)" 

002500 RETURN 0 


kkkkkk dokdkeieekoeekeeeieeieeeeieeieeeeee** Bottom of Data **99xeeeieeeioeiceeeeeieeeieeek 


E 7-28 (XD 


File Edit Edit Settings Menu Utilities Compilers Test Jelp 


ISREDDE2  TJA0095.REXX(TRO4) - 01.02 Columns 00001 00072 
KARAR ROOHORROOOORHOHOORGOORRHOUORHO ER Top of Data JOXOGOXOOOOOOO OO GOOOOO GOGOOOGOR 
000100 /* REXX */ 

000200 

000300 TRACE O 

000400 RSCHEMA-'TJA0095'; 

000500 ADDRESS ISPEXEC 

000600 "DISPLAY PANEL (TP04)" 


000700 

000800 SQLSTMT = "SELECT NAME,MOBILE "||, 

000900 "FROM "||RSCHEMA| | " . "| | "TBINFO "||, 
001000 "WHERE UID -'"||RID| |"' ;" 

001100 


001200 ADDRESS TSO 

001300 'SUBCOM DSNREXX' 

001400 IF RC THEN DO 

001500 S RC = RXSUBCOM('ADD', 'DSNREXX', 'DSNREXX') 
001600 END 
001700 ELSE DO 
001800 S RC 
001900 S RC 
002000 END 
002010 

002100 ADDRESS DSNREXX 

002200 'CONNECT' DP1A 

002300 "EXECSQL DECLARE C1 CURSOR FOR S1" 

002400 "EXECSOL PREPARE S1 INTO :OUTSQLDA FROM :SQLSTMT" 
002500 

002600 "EXECSOL OPEN C1" 

002700 IF SQLCODE = 0 THEN DO 


LI 


RXSUBCOM (' DELETE' , 'DSNREXX' , 'DSNREXX') 
RXSUBCOM ('ADD', 'DSNREXX', 'DSNREXX') 


002800 "EXECSOL FETCH C1 USING DESCRIPTOR :OUTSQLDA" 
002900 RNAME = OUTSQLDA.1.SQLDATA 

003000 RMOBILE = OUTSQLDA.2.SQLDATA 

003100 INFORM = SQLCODE 


003200 END 
003300 ELSE DO 


003400 INFORM-SQLCODE 
003500 END 

003600 

003700 "EXECSOL CLOSE C1" 
003800 


003900 ADDRESS ISPEXEC 
004000 "DISPLAY PANEL(TP04)" 
004100 

004200 RETURN 0 


图 7-29 TR04 程序 内 容 
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ERRPOPUP 程序 内 容 如 图 7-30 所 示 。 


Edit Edit Settings Menu Utilities Compilers Test Help 


ISREDDE2 TJA0095.REXX(ERRPOPUP) - 01.00 Columns 00001 0007 


doe 
000100 
000200 
000600 
000900 
001000 
001100 
001200 
001300 
001400 
001500 
001600 
001700 
001800 
001900 


dede 


kkkkkkkkkkkkkkkkkkkkkkkkkkškk*x Top of Data JXdJelcoceeeedoioooeek eei 


/ *REXX* / 


/*ERRPOP, pops up an error message*/ 
Errmsg - Arg(1) 
Address ISPEXEC 


If (Errmsg = '"') Then Do 

Errmsg - 'Wrong input! Please enter again!" 
End 
POPERR - Errmsg 


"ISPEXEC ADDPOP" 

2ZCMD = '"' 

"ISPEXEC DISPLAY PANEL(ERRPOPUP)" 
"ISPEXEC REMPOP" 


return 0 
ddekkdoekekieeeeheee eee ** Bottom of Data J*eeeeeeeeeeeeeeoeeeoeeeod 


图 7-30 ERRPOPUP 程序 内 容 


3. DB2 数据 表 设计 
为 了 成 功 执行 上 面 的 REXX 程序 进行 DB2 数据 表 的 操作 ， 必 须 先 在 DB2 里 面 创建 
出 相应 的 数据 表 。 参 考 代 码 如 下 。 


SET CURRENT SCHEMA = 'TJA0095'; 
CREATE DATABASE DBSP29; 
CREATE TABLESPACE TSINFO 

IN DBSP29 

LOCKSIZE ROW 

LOCKMAX 0 

SEGSIZE 4 

FREEPAGE 5 

PCTFREE 5 

CLOSE NO; 
CREATE TABLE TBINFO( 


UID 


CHAR(4), 


NAME  CHAR(20), 

MOBILE CHAR (11) 

) IN DBSP29.TSINFO; 
COMMIT; 
INSERT INTO TBINFO VALUES ('1', 'SHICHU', '136XXXXXXXX'); 
INSERT INTO TBINFO VALUES('2','KAKA', '136XXXXXXXX'); 
INSERT INTO TBINFO VALUES('3','PATO','136XXXXXXXX'); 
INSERT INTO TBINFO VALUES ('4', 'PIRLO', '136XXXXXXXX'); 
INSERT INTO TBINFO VALUES ('5','MESSI', '136XXXXXXXX'); 
SELECT * FROM TBINFO; 
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7.5.2 ”客户 化 ISPF 主 面板 


用 户 有 时 需要 将 ISPF 主 面板 客户 化 或 者 把 已 经 编写 好 的 ISPF 对 话 程 序 杠 入 到 
ISPF 主 面板 上 ， 尤 其 是 后 者 ， 是 在 完成 ISPF 对 话 程序 之 后 常常 遇 到 的 难题 。 下 面 进 行 
介绍 。 

为 了 修改 ISPF 主 面板 ， 首 先 要 定位 ISPF 主 面板 的 位 置 。 每 个 TSO 登录 过 程 关 联 的 
ISPF 主 面板 可 能 不 同 ， 如 果 要 定位 ISPF 主 面板 ， 首 先 要 找到 TSO 登录 过 程 。 

定位 TSO 登录 过 程 的 步骤 如 下 : 

QD 在 TSO 登录 面板 上 找到 TSO 登录 过 程 的 名 字 。 某 系统 示例 如 图 7-31 所 示 。 


Enter LOGON parameters below: RACF LOGON parameters: 
Userid ===> TE02 

Password ===> New Password ===> 
Acct Nmbr ===> ACCT# 

Size ===> 4096 

Perform ===> 

Command ===> ISPF 


Enter an 'S' before each option desired below: 
-Nomail -Nonotice -Reconnect -OIDcard 


PFl/PF13 ==> Help PF3/PF15 ==> Logoff PAl ==> Attention PA2 ==> Reshow 
You may request specific help information by entering a '?' in any entry field 


图 7-31 TSO 登录 面板 


@ E JES 的 过 程 库 中 寻找 DBAUSER9 成 员 。 若 想 寻找 JES 的 过 程 库 ， 首 先 要 找到 
JES 自身 的 启动 过 程 ， 一 般 TES 的 启动 过 程 会 放 在 SYS1.PROCLIB 中 。 下 面 看 看 如 何 准 
确定 位 JES 的 启动 过 程 。 

定位 JES 的 启动 过 程 步 又 如 下 : 

© 使 用 z/OS 命令 D IPLINFO 和 D PARMLIB 查找 系统 的 启动 参数 和 参数 库 。 由 
图 7-32 可 知 ， 系 统 的 参数 文件 为 [EASYS00。 
1 图 7-33 可 知 ， 系 统 的 参数 库 为 USER.PARMLIB 和 SYSI.PARMLIB. 
© 在 系统 过 程 库 (PARMLIB) 中 查找 IEASYS00， 某 系统 示例 如 图 7-34 所 示 。 
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Display Filter View Print Options Help 


SDSF PRIMARY OPTION MENU -- COMMAND ISSUED 


HQX7730 
RESPONSE -TESTMVS 
IEE2541 03.00.48 IPLINFO DISPLAY 140 
SYSTEM IPLED AT 21.52.33 ON 09/07/2011 
RELEASE z /OS 01.08.00 LICENSE - z/OS 
USED LOAD 31 IN SYS1.IPLPARM ON OF9F 
ARCHLVL - 2 MTLSHARE - N 
IEASYM LIST - DP 
IEASYS LIST - 00 (OP) 
IODF DEVICE OF9F 
IPL DEVICE 0C80 VOLUME DMTRES 


JC Job classes RM Resource monitor 
SE Scheduling environments CK Health checker 
RES WIM resources 

ENC Enclaves ULOG User session log 


PS Processes 


END Exit SDSF 


图 7-32 DIPLINFO 命令 执行 结果 


Display Filter View Print Options Help 
HQX7730 ----------------- SDSF PRIMARY OPTION MENU -- COMMAND ISSUED 
RESPONSE -TESTMVS 

IEE2511 03.02.38 PARMLIB DISPLAY 144 

PARMLIB DATA SETS SPECIFIED 


AT IPL 
ENTRY FLAGS VOLUME DATA SET 
T S DMTP 07  USER.PARMLIB 
2 S DMTRES  SYS 1.PARMLIB 
LOG System log So Spool offload 
SR System requests SP Spool volumes 
MAS Members in the MAS 
Jc Job classes RM Resource monitor 
SE Scheduling environments CK Health checker 
RES WLM resources 
ENC Enclaves ULOG User session log 
PS Processes 


END Exit SDSF 


COMMAND INPUT ===> /D PARMLIB SCROLL ===> CSR 


Fd 7-33 D PARMLIB 命令 执行 结果 


由 图 7-34 可 知 ， 系 统 的 第 一 个 地 址 空间 的 启动 过 程 是 MSTJCL00。 
© 在 系统 参数 库 中 寻找 MSTJCL00 成 员 ， 某 系统 示例 如 图 7-35 所 示 。 
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File Edit Edit Settings Menu Utilities Compilers Test Help 


VIEW SYS1.PARMLIB(IEASYSO0) - 01.99 CHARS 'JCL' found 
JO k aaao Top of Data VOO kk 


000001 CLOCK-00, 


000002 CON-00, SELECT CONSOLOO 
000003 GRSCNF-00, SELECT GRSCNF00 
000004 GRSRNL-00, SELECT GRSRNLOO 
000005 GRS-NONE, GRS CONFIG 
000006 PLEXCFG-MONOPLEX, SYSPLEX CONFIG 
000007 ALLOC-00, SELECT ALLOCOO 
000008 CMD-UR, SELECT COMMND00 
000009 COUPLE-00, SELECT COUPLE00 
000010 DEVSUP-00, SELECT DEVSUPO0 
000011 FIX-00, SELECT IEAFIX00 
000012 ICS-00, SELECT IEAICSOO0 
000013 1I0S-00, SELECT IECIOSO0 
000014 LNK-00, SELECT LNKLSTO0 
000015 LPA-00, SELECT LPALSTOO 
000016 MLPA-00 ELECT IEALPAOO0 
000018 OMVS-(00,FS), SELECT BPXPRMOO 
000019 oPT-00, SELECT IEAOPTOO 
Command 


[d 7-34 IEASYS00 参数 内 容 


File Edit Edit Settings Menu Utilities Compilers Test Help 


VIEW SYS1.PARMLIB(MSTJCLOO) - 01.03 Columns 00001 00072 
XOGOOORR GOOOOOOOOOOOOOOOOOOOOOEEEUOOE Top of Data JC Ya; ce ke IO 
000100 //MSTJCLOO JOB MSGLEVEL- (1,1), TIME-1440 

000200 // EXEC PGM-IEEMB860,DPRTY- (15,15) 

000300 //STCINRDR DD SYSOUT- (A, INTRDR) 

pepe rca. DD SYSOUT- (A, m 


YU //IEFPDSI DD DSN-SYS1.PROCLIB, DISP-SHR 
000421 DD DSN-CENTER.PROCLIB,DISP-SHR 
000430 //IEFJOBS DD DSN-CENTER.JOBLIB, DISP-SHR 
000440 //SYSUADS DD DSN-SYSl1.UADS,DISP-SHR 
000450 //SYSLBC DD DSN-SYS1.BRODCAST,DISP-SHR 


dkdekdek ek deekeieeekeieeeeieee eee eee*** Bottom of Data *9* 9" dieci eee 


Scroll 


Command 


图 7-35 MSTJCL00 成 员 内 容 


由 图 7-35 可 知 ，JES 的 启动 过 程 位 于 IEFPDSI 对 应 的 SYSI.PROCLIB 或 


CENTER.PROCLIB 库 中 。 


@ 在 IEFPDSI 库 中 查找 JES 成 员 ， 某 系统 示例 如 图 7-36 所 示 。 

由 图 7-36 可 知 ， 正 S2 的 过 程 库 有 7 个 ， 从 USER.PROCLIB 到 SYSI.LOGON. 
TSO 登录 过 程 就 放 在 JES2 的 过 程 库 中 。 某 系统 示例 如 图 7-37 所 示 。 

由 图 7-37 可 知 ,TSO 登录 过 程 会 调用 一 个 CICS/REXX 程 序 DBAUSER9, DBAUSER9 
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File EdiL EdiL Settings Menu Utilities Compilers Test Help 


VIEW SYS1.PROCLIB(JES2) - 01.17 Columns 00001 00072 
JOD OK aokk Top. of Data VOGO kk 
000100 //JES2 PROC P-JES2SP,N-JES2NODE 


DIPL 


000300 //* JES2 PROC 
[TY 
000410 //JES2 EXEC PGM-HASJES20,TIME-1440 

000420 //*ES2 EXEC PGM-HASJES20,TIME-1440, PARM- (WARM, NOREQ) 

000600 //HASPLIST DD DDNAME-IEFRDER 

000700 //HASPPARM DD DSN-SYS1.TESTPLX.PARMLIB(&P),DISP-SHR 


000800 // DD DSN-SYS1.TESTPLX.PARMLIB(&N),DISP-SHR 
000900 // DD DSN-SYS1.SHASPARM,DISP-SHR 

001010 DSN-USER. PROCLIB, DISP-SHR 

001011 DSN-CENTER. PROCLIB, DISP-SHR 

001020 DSN-SYS1.PROCLIB, DISP-SHR 

001200 DSN-TIVOLI.PROCLIB, DISP-SHR 

001300 DSN-CANDLET.XEGA.PROCLIB,DISP-SHR 
001320 DSN-TJCICS.PROCLIB, DISP-SHR 

001400| //PROCO1 DSN-SYS1.LOGON,DISP-SHR 


001500 //IEFRDER DD DUMMY 


DOkdekdek ekle *** Bottom of Data X99 v ( XO KO RO OR Ke Kee 


Command Scroll > CSR 


图 7-36 JES2 的 启动 过 程 


File Edit Edit Settings Menu Utilities Compilers Test Help 


VIEW SYS1.LOGON(DBAUSER9) - 01.01 Columns 00001 00072 


Kok dob iee kk ke! **** Top of Data J*d433So!doeooeondodoeieoeionoer 


000100 //DBAUSER PROC 

000200. / foo deed e ek IE REOR I RR ER ERE OR ERE OR ER IERI EI EIE EX ERO OI ER E edo Rer 
000300 //* DBAUSER LOGON PROCEDURE (USED FOR DATAMGMT FUNCTIONS) 
000400 //* ALL ALLOCATIONS ARE DONE IN "CENTER .CLIST (DBAUSER)" 

000500  / / 4 A 4o oido VO IO E e e e e E E e e E E e e e E HORROR HOOK IO IO AO IC IO KICK IO I KORR 
000600 //DBAUSER EXEC PGM-IKJEFTO1,DYNAMNBR-500,|PARM- ' $DBAUSER9 ' 

000700 //STEPLIB DD DISP-SHR,DSN-VIP.V61.VANLOAD 


000800 // DD DISP-SHR,DSN-CANDLET.AOIRM.TKAULOAD 
000900 // DD DISP-SHR,DSN-CANDLET.AOIRM.TKANMOD 
001000 // DD DISP-SHR, DSN-CANDLET.AOIRM.TKANMODL 
001100 // DD DISP-SHR, DSN-CANDLET.AOIRM.TKANMODS 
001200 //SYSPROC DD DSN-TEO2.REXX.LAB,DISP-SHR 
001210 // DD DSN-CENTER.CLIST,DISP-SHR 


001300 //SYSHELP DD DSN-SYSl.HELP,DISP-SHR 
001400 //SYSLBC DD DSN-SYS1.BRODCAST,DISP-SHR 
001500 //SYSPRINT DD TERM-TS, SYSOUT-X 

001600 //SYSTERM DD TERM-TS,SYSOUT-X 

001700 //SYSIN DD TERM-TS 

001800 //* 


Bk d hok 炎炎 天 天 大 天 天 天天 天 大大 天 大 大 大 天 大 类 大 二天 天 大 天 大 类 大 Bottom of Data *e*eekkeekoeek eee ek dee 


图 7-37 TSO 登录 过 程 内 容 


放 在 ISPF 的 SYSPROC 或 SYSEXEC 库 中 ， 可 以 在 ISPF 的 命令 栏 中 使 用 DDLIST 命令 
查看 系统 的 SYSPROC 或 SYSEXEC 库 内 容 ， 某 系统 DBAUSER9 示例 如 图 7-38 所 示 。 

从 图 7-38 可 知 ，ISPF 的 主 面板 是 ISRQU390 成 员 ， 它 会 放 在 ISPPLIB 库 中 。 另 外 ， 
还 有 一 个 简单 的 方法 也 可 以 获悉 当前 ISPF 主 面板 的 成 员 名 称 ， 就 是 在 ISPF 命令 栏 中 输 
入 PANELID。 示 例如 图 7-39 所 示 。 
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File Edit Edit Settings Menu Utilities Compilers Test Help 


VIEW CENTER.CLIST(DBAUSER9) - 01.14 Columns 00001 00072 
RRAARR REAARAARRARRARERAREAAAAAAAA** Top Of Data A44 KXde&k IE KOCEA ORO RAO 


000100 PROC 0 

000200  / X 4X clc e e e e e e e he e e e e doleo i e e dede i he e dede i ll dedo i lk ede e he e e e he e hehe e ede e deke f 
000300 /* DBAUSER LOGON CLIST +y 
000400 /* USED WITH DATA MANAGEMENT JA 
[TI 
000600 CONTROL MAIN NOMSG NOFLUSH NOLIST NOCONLIST 

000700 PROFILE MODE WTPMSG MSGID 

000800 FREE FILE(ISPLLIB,ISPPLIB,ISPMLIB,ISPTLIB,ISPSLIB, + 


000900 SYSEXEC, ISPPROF, ISPTABL) 
001000 /i 
001100 /* ALLOCATE ISPPROF DATASET xf 


Q01200Q 9*9» xw X Y X Xo ko HORROR HOCH ROCHE ROCA E E E E E ROIG CK ROI H A Koi f 


001300 SET &DSNAME = &SYSUID..ISPF.ISPPROF 


029000 xXx dodo ok Kok lk SE E HE e E He CIO E Fe E HE OK ICI E HE SE E ICI E HE E E HE E He HE e E E E SE E e SE E JE SEHE FE EHE SE E f 
029100 /* START ISPF x 
029200 /&hARRRERAARRRRRRARRARARRARRARRARRARRARAARARARARRRRARAARRRRRARARRRARRARRARA/ 
029300|PDF PANEL(ISR8390) 

029400 JFE EIEEE EEEE I EE E H e e H ——————e 
029500 EXIT 


BAGCRAXA KRAAkkkkkkkkkkkkkkkkkkkkkkkk Bottom of Data #4% dd i dded de de e de k I kee e k 


图 7-38 TSO 登录 过 程 调用 的 CLIST 程序 


Menu Utilities Compilers Options Status Help 


ISR6390 z/OS Primary Option Menu 


0 Settings Terminal and user parameters User ID . 1 TEO2 

1 View Display source data or listings Time e. e 1 03:40 

2 Edit Create or change source data Terminal . $ 3278 

3 Utilities Perform utility functions Screen a 

4 Foreground Interactive language processing Language . 1 ENGLISH 
5 Batch Submit job for language processing Appl ID . $ ISP 

6 Command Enter TSO or Workstation commands TSO logon : DBAUSER 
7 Dialog Test Perform dialog testing TSO prefix $ 

8 DB2 DB2 SPUFI System ID : TESTMVS 
9 IBM Products IBM program products MVS acct . 1 ACCT4 
10 SCLM SW Configuration Library Manager Release . 1 ISPF 5.8 
11 Workplace ISPF Object /Action Workplace 

12 z/OS System z /OS system programmer applications 

13 z/OS User z /OS user applications 

M Minibank Minibank Control Panel 


Enter X to Terminate using log /list defaults 


Option ===> | PANELID 


图 7-39 查看 面板 名 称 


ISPF 的 面板 会 存放 在 ISPF 的 ISPPLIB 库 中 。 使 用 DDLIST 命令 查看 某 系 统 的 
ISPPLIB 库 。 示 例如 图 7-40 所 示 。 

最 后 可 以 成 功 在 某 ISPPLIB 中 定位 ISPF 主 面板 。 

假设 想 在 ISPF 主 面板 上 增加 一 个 新 的 入 口 (Entry)， 关 联 到 一 个 ISPF 对 话 程序 ， 
在 ISR(2390 面板 定义 中 增加 两 条 语句 (如 图 7-41 所 示 )， 可 以 为 Minibank ISPF 对 话 程 
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Current Data Set Allocations Row 72 of 204 


Volume Disposition Act DDname Data Name Actions: BEVMFCIO 
ISPPLIB CENTER.ISPPLIB 


DMTCAT SHR, KEEP > 

DMTP09 SHR,KEEP > SCLMSAW. V2R1.SAUZPENU 

DMTRES SHR, KEEP > ISP.SISPPENU 

DMTRES SHR, KEEP 区 SYS1.SBLSPNLO 

DMTRES SHR, KEEP > SYS1.SBPXPENU 

DMTOS4 SHR, KEEP > BOOKMAN. SEOYPENU 

DMTPO9 SIIR, KEEP > DEDBUG.V7R1.SEQAPENU 

DMTOS1 SHR,KEEP > CBC.SCBCPNL 

DMTRES SHR, KEEP = SYS1.DGTPLIB 

DMTRES SHR, KEEP > SYS1.DFOPLIB 

DMTRES SHR, KEEP » SYS1.SEDGPENU 

DMTOS1 SIIR, KEEP > DFSORT.SICEPENU 

DMTOS3 SHR, KEEP > FFST.SEPWPENU 

Command --->[L_pprrsr | Scroll ===> PAGE 
Fl-Help F2-Split F3-Exit F5-Rfind F7-Up F8-Down F9-Swap 


Fl0-Left Fli-Right  Fl12-Cancel 
图 7-40 DDLIST 查看 ISPF 各 类 库 的 信息 


File Edit Edit Settings Menu Utilities Compilers Test llelp 


ISREDDE2 CENTER.ISPPLIB(ISRé390) - 01.31 Columns 00001 00072 
RARRRk EAEAKRRKXRARKERXXEAA4 44444444 Top of Data Joke kokekokkdok kdo kk doleo koe 
000001 )PANEL KEYLIST(ISRSAB,ISR) IMAGE (&ZIMGNAM, &ZIMGROW, &ZIMGCOL) 

000002 )ATTR DEFAULT( ) FORMAT (MIX) /* ISR6390 - ENGLISH - 5.2 */ 
000003 0B TYPE (AB) 

000004 OD TYPE (PS) 


000201 0 Settings Terminal and user parameters 
000202 1 View Display source data or listings 
000203 2 Edit Create or change source data 
000204 3 Utilities Perform utility functions 

000205 4 Foreground Interactive language processing 
000206 5 Batch Submit job for language processing 
000207 6 Command Enter TSO or Workstation commands 
000214 13 z/OS User z/OS user applications 


000215 M Minibank Minibank Control Panel 
000216 )INIT 


000217 .ZVARS = '(ZCMD ZEXX)' 

000306 — 0,'PGM(ISPISM) SCRNAME (SETTINGS) ' 

000307  1,'PGM(ISRBRO) PARM(ISRBRO01) SCRNAME (VIEW) ' 

000308 — 2,'PGM(ISREDIT) PARM(P,ISREDMO1) SCRNAME (EDIT) ' 
000309  3,'PANEL(ISRUTIL) SCRNAME (UTIL) ' 

000310 ,'PANEL(ISRFPA) SCRNAME (FOREGRND) ' 

000311  5,'PGM(ISRJBl) PARM(ISRJPA) SCRNAME (BATCH) NOCHECK' 
000312 6, 'PGM(ISRPTC) SCRNAME (CMD) ' 


K 


000319  13,'PANEL(ISRG390U) SCRNAME(0S390U) " 
000321 X,EXIT 

000322 SP,'PGM(ISPSAM) PARM(PNS)' 

000323 ' ',' ' 

000324 *, v2) 

000325 )PNTS 


Fd 7-41 ISPF 主 面板 的 定义 
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序 在 ISPF 主 面板 定义 一 个 入 口 。 
上 面 介绍 了 如 何 修改 ISPF 主 面板 , 为 已 经 开发 完毕 的 ISPF 对 话 程序 增加 一 个 入 口 ， 
类 似 地 ， 也 可 以 为 不 同 的 用 户 定 制 不 同 的 ISPF 主 面板 ， 这 个 案例 留 给 读者 自己 去 完成 。 
更 多 有 关 ISF 会 话 的 有 关内 容 ， 请 参阅 IBM 白皮书 ISPF Dialog Developer s Guide 


and Reference; 


7.6 REXX 5 ISPF 编辑 宏 


编辑 宏 是 运行 于 ISPF 编辑 器 环境 下 的 ISPF 会 话 。 编 辑 宏 是 通常 用 由 CLIST 或 者 
REXX 等 命令 语言 或 者 其 他 诸如 PLI COBOL 编写 而 成 ， 使 用 这 些 编辑 宏 可 扩展 并 定 
制 编辑 器 命令 。REXX 编辑 宏 就 是 一 组 完成 特定 编辑 器 任务 的 命令 ， 存 放 在 分 区 数据 集 
的 成 员 中 ，REXX 编辑 宏 可 存放 在 包括 SYSUPROC、ALTLIB (专用 于 REXX 程序 的 数 
据 集 )、SYSPROC 以 及 SYSEXEC 对 应 的 数据 集中 ， 并 以 REXX 标志 注释 行 /* REXX */ 
( 除 REXX 外 也 可 包含 其 他 字符 ， 但 REXX 必 不 可 少 ) 作为 首 行 。 

编辑 宏 的 使 用 和 普通 的 编辑 器 命令 相似 ， 输 入 对 应 的 宏 名 称 ， 运 行 该 编辑 宏 即 可 执 
行 对 应 的 编辑 器 相关 功能 。 


7.6.1 “编辑 宏 命令 


在 编辑 宏 中 以 ISREDIT 语句 开头 的 语句 是 编辑 宏 命令 或 赋值 语句 , 这 类 语句 交 由 对 
应 的 编辑 器 环境 处 理 。 可 以 使 用 ADDRESS ISREDIT 命令 切换 ISPF/PDF 编辑 器 宿主 环 
境 ， 所 有 后 续 命令 将 直接 传 给 ISPF/PDF 编辑 器 执行 。 也 可 以 使 用 ADDRESS ISPEXEC 
命令 切换 到 ISPF 宿主 环境 ， 所 有 使 用 ISREDIT+ 命 令 的 方式 执行 编辑 宏 命令 。 表 7-11 列 
出 了 两 种 不 同 宿主 环境 中 的 使 用 方式 。 
表 7-11 2 个 宿主 环境 


ISPEXEC 环境 
ADDRESS ISPEXEC 
"ISREDIT EditMacroCommand/Assignment' 


ISREDIT 环境 
ADDRESS ISREDIT 
EditMacroCommand/Assignment 


编辑 器 命令 在 ISPF 编辑 器 中 直接 执行 和 在 编辑 宏 REXX 程序 中 执行 效果 基本 相同 ， 
不 同 的 是 在 ISPF 命令 行 输入 编辑 器 命令 的 运行 结果 会 以 消息 或 错误 信息 的 方式 显示 给 
日 户 ， 而 同样 的 命令 在 编辑 宏 REXX 程序 中 执行 则 不 会 显示 命令 运行 的 具体 信息 ， 而 是 
显示 该 宏 执 行 的 最 终结 果 。 此 外 需要 注意 一 些 特殊 的 命令 需要 附加 操作 符 才 能 在 宏 中 使 
用 。 所 有 的 编辑 宏 必 须 以 ISREDIT MACRO 为 第 一 条 语句 。 

在 ISREDIT 之 后 除了 可 以 输入 编辑 宏 命令 之 外 还 可 以 直接 输入 赋值 语句 。 

一 般 的 编辑 宏 可 通过 DEFINE 命令 来 完成 定义 。 通 过 自 定义 编辑 宏 可 以 将 现 有 的 内 
置 编辑 命令 蔡 换 为 自 定义 的 编辑 宏 。REXX 编辑 宏 是 隐 式 定义 的 ， 即 当 用 户 使 用 一 个 非 
内 置 或 者 没有 预定 义 名 称 的 命令 时 ， 编 辑 器 将 自动 搜索 SYSUEXEC、SYSUPROC、 


un 
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ALILIB. SYSEXEC 以 及 SYSPROC 的 库 ， 如 果 这 些 库 中 含有 一 个 该 名 称 的 成 员 ， 则 将 
该 命令 自动 识别 为 一 个 宏 进行 处 理 。 
通过 编辑 宏 的 使 用 ， 用 户 可 以 : 
e 完成 重复 性 任务 。 对 于 重复 性 的 编辑 任务 ， 可 将 其 作为 一 个 编辑 宏 存 储 ， 从 而 实 
现 可 多 次 利用 ， 而 不 必 重 复 敲 击 键盘 。 
e 简化 复杂 任务 的 处 理 。 在 完成 复杂 任务 时 直接 使 用 包含 处 理 逻 辑 的 编辑 宏 , 可 大 
大 简化 复杂 工作 的 处 理 步 又 。 
e 获取 或 返回 信息 。 使 用 编辑 宏 可 从 编辑 器 或 其 他 用 户 获 取信 息 ， 并 将 处 理 后 的 消 
息 返回 给 用 户 。 
更 多 有 关 ISPF 编辑 宏 的 内 容 ， 可 参阅 IBM 白皮书 ISPF Edit and Edit Macros» 


7.6.2 ”编辑 宏 举例 


通过 在 编辑 宏 中 使 用 编辑 赋值 语句 或 命令 语句 ， 用 户 可 以 完成 绝 大 多 数 在 编辑 器 命 
令 行 所 能 实现 的 功能 。 例 如 移动 、 复 制 、 插 入 等 。 对 于 文本 编辑 的 行 命令 操作 ， 基 本 都 
有 对 应 的 编辑 宏 命令 可 以 用 于 完成 这 些 文本 操作 。 通 过 赋值 语句 也 可 以 完成 诸如 光标 定 
位 等 操作 。 


1. 复制 行 示例 

如 果 需 要 复制 一 行 ， 可 通过 将 该 行 赋值 给 一 个 变量 ， 然 后 通过 插入 行 命令 将 保存 的 
变量 值 赋 给 一 个 新 行 ， 即 通过 编辑 赋值 的 方法 操作 行 数据 ， 从 而 完成 复制 行 的 功能 。 

/* REXX */ 

ADDRESS ISPEXEC 

'ISREDIT MACRO' 

'ISREDIT (LINEDATA) = LINE 1' 

'ISREDIT INSERT 5' 

'ISREDIT LINE 5 = (LINEDATA) ' 


2. 光标 定位 示例 

通过 编辑 宏 把 光标 定位 到 第 3 行 第 15 列 。 
/* REXX */ 

ADDRESS ISPEXEC 


"'"ISREDIT MACRO' 
'ISREDIT CURSOR = 3,15" 


3. 删除 特征 行 示例 
实现 编辑 宏 ， 将 所 有 首 列 为 “-” 符 号 的 行 删 除 ， 第 一 行 除外 。 通 过 ISREDIT 语句 
调用 相应 的 编辑 器 命令 RESET/EXCLUDED/FIND/DELETE)〉 来 完成 该 功能 。 


/* REXX */ 
ADDRESS ISPEXEC 
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"ISREDIT MACRO" 


"ISREDIT RESET EXCLUDED " /* Ensure no lines are excluded 
"ISREDIT EXCLUDE ALL '-' 1" /* Exclude lines with '-' in coll 
"ISREDIT FIND FIRST '-' 1" /* Show the first such line 


"ISREDIT DELETE ALL EXCLUDED" /* Delete all lines left excluded 


4. 增加 虚线 分 割 行 示例 
下 例 为 一 个 较为 复杂 的 完整 示例 ， 功 能 为 将 每 行 都 用 虚线 分 隔 开 。 


/* REXX */ 
TRACE 
ADDRESS ISPEXEC 
'ISREDIT MACRO' 
/* 保 存 当前 编辑 配置 信息 、FIND/CHANGE 值 以 及 面板 和 光标 当前 值 */ 
'ISREDIT (SAVE) = USER STATE' /*USER STATE*/ 
'ISREDIT RESET' 
'ISREDIT EXCLUDE ----- 1 ALL' 
'ISREDIT DELETE ALL X' /* 删 除 原 有 的 所 有 虚线 行 */ 
LASTE = 1 
LINE = 0 
LINX = COPIES ('-',70) 
LL = LASTL + 1 
DO WHILE LINE < LL 
'ISREDIT LINE_AFTER 'LINE' = (LINX)' 
/*TE LINE 行 后 添加 LINX 变量 的 数据 */ 
'ISREDIT (LASTL) = LINENUM .ZLAST' 
LL = LASTL + 1 
LINE - LINE * 2 
END 
'ISREDIT USER STATE - (SAVE)' 
EXIT 


xy 
ig 
wf 
xy 


REXX 程序 的 执行 


在 主机 系统 中 , 通过 REXX 解释 器 直接 解释 执行 或 者 由 REXX 编译 器 编译 后 通过 编 
译 运 行 器 可 直接 运行 的 REXX 语句 ， 称 为 REXX exec， 即 通常 所 说 的 REXX 程序 。 

REXX 程序 既 可 以 通过 解释 的 方式 直接 调用 执行 ， 也 可 以 在 编译 后 执行 。 本 章 首先 
介绍 在 不 同 环境 下 ， 如 何 通 过 解释 的 方式 调用 REXX 脚本 的 方式 ， 随 后 对 执行 编译 后 的 
REXX 程序 进行 初步 的 介绍 。 


8.1 TSO/E 环境 下 REXX 程序 调用 


在 数据 集 完 成 了 REXX 程序 的 编写 后 ， 用 户 可 以 通过 显 式 或 隐 式 的 方式 在 MVS 的 
各 个 地 址 空间 调用 该 REXX 程序 。 这 里 的 REXX 程序 调用 ， 指 的 是 通过 REXX 解释 器 
直接 解释 执行 REXX 脚本 。 


1. 显 式 调 用 

1E TSO/E 下 ， 显 式 使 用 EXEC 命令 ， 后 跟 包含 REXX 程序 (exec) 的 数据 集 名 称 。 
其 中 , 关键 字 exec 是 系统 用 于 区 分 REXX 与 CLIST 程序 的 参数 , 在 调用 REXX 程序 时 ， 
通常 必须 加 上 该 参数 。 但 是 ， 如 果 在 REXX 脚本 中 的 首 行 加 入 了 /* REXX */ 注 解 ， 则 在 
调用 该 脚本 时 ，exec 参数 可 以 省 略 。 

根据 TSO/E 下 数据 集 命 名 规范 的 不 同 , 可 使 用 下 例 对 USERID.REXX.EXEC(HELLO) 
数据 集 的 全 名 调用 。 

EXEC 'userid.rexx.exec(timegame)' exec 

也 可 以 不 使 用 引号 ， 使 用 省 去 用 户 前 级 和 后 缀 的 调用 方式 非 全 名 数据 集 调用 ， 在 这 


种 情况 下 ， 系 统 会 为 数据 集 加 上 默认 的 前 后 缀 ， 如 下 例 所 示 ， 用 户 可 在 TSO 环境 下 的 
READY 提示 符 处 输入 命令 该 处 示例 省 略 了 数据 集 的 前 后 级 )。 


READY 

EXEC rexx(timegame) exec 
或 者 ， 用 户 还 可 以 通过 ISPF/PDF 的 COMMAND 命令 行 输入 命令 ， 如 图 8-1 所 示 ， 该 命 
令 省 略 了 数据 集 用 户 前 级 。 
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TSO COMMAND PROCESSOR -一 一 一 一 -一 一 一 一 


ENTER TSO COMMAND OR CLIST BELOW: 
===> exec rexx.exec (timegame) exec 


ENTER SESSION MANAGER MODE ===> NO (YES or NO) 


图 8-1 REXX 程序 执行 


2. 隐 式 调用 

隐 式 调用 REXX 程序 (exec)， 即 通过 直接 输入 包含 该 REXX 程序 的 分 区 数据 集成 
员 的 名 称 ， 而 直接 调用 该 程序 。 使 用 隐 式 调用 的 前 提 是 ， 这 些 分 区 数据 集 已 经 被 设 定 为 
系统 库 (SYSPROC 或 SYSEXEC )。 

因此 ,在 隐 式 调用 REXX 程 序 之 前 , 需要 为 对 应 的 系统 库 (SYSPROC 或 者 SYSEXEC) 
分 配 包含 该 REXX 程序 的 分 区 数据 集 (PDS)。SYSPROC 5 SYSEXEC 的 区 别 在 于 ， 在 
SYSPROC 中 同时 存放 CLIST 程序 和 REXX 程序 (系统 通过 exec 关键 字 标识 以 及 REXX 
程序 代码 起 始 处 所 含有 的 /* REXX */ 首 行 注释 来 区 分 两 者 ); 而 在 SYSEXEC 中 ， 只 能 存 
放 REXX 程序 。 在 默认 情况 下 ， 系 统 使 用 SYSEXEC 作为 REXX 程序 的 默认 系统 库 ， 因 
此 ， 建 议 将 日 常 使 用 或 者 重要 的 REXX 程序 放 入 SYSEXEC 系统 库 中 ， 使 得 这 些 脚本 更 
易于 维护 与 管理 。 关 于 REXX 系统 库 的 程序 装载 及 搜索 ， 可 以 参考 IBM 白皮书 TSO/E 
REXX REFERENCE 中 的 相关 内 容 Using SYSPROC and SYSEXEC for REXX Execs» 

特别 要 说 明 的 是 ， 如 果 用 户 打算 使 用 编译 的 方式 来 执行 REXX 程序 ， 同 样 也 可 以 将 
编译 得 到 的 LOAD 模块 放 入 对 应 的 系统 数据 集中 ， 并 在 执行 时 采用 隐 式 调用 。 

使 用 TSO/E 命令 ， 可 以 为 系统 库 (SYSPROC 或 SYSEXEC) 分 配 一 个 PDS 数据 集 ， 
下 面 的 例子 通过 执行 的 TSO 下 命令 ,将 数据 集 useridREXX.EXEC 以 及 ISPPHONE.EXEC 
分 配 为 SYSEXEC 系统 库 。 


EXECUTIL SEARCHDD(yes) 

/* 验证 系统 库 SYSEXEC 是 否 可 用 */ 

ALLOC FILE(SYSEXEC) DATASET (rexx.exec,'isp.phone.exec') 
SHR REUSE 


完成 了 对 应 PDS 数据 集 的 分 配 后 ， 就 可 以 在 READY 提示 符 处 通过 直接 输入 REXX 
程序 所 在 分 区 数据 集 的 成 员 名 称 来 调用 该 REXX 程序 。 
调用 该 REXX 程序 (exec) 示例 如 下 : 


READY 

Timegame 
或 者 在 ISPE/PDF 的 COMMAND 命令 行 输入 ， 如 图 8-2 所 示 。 或 在 任何 的 ISPE/PDF 命 
令 行 前 加 tso 后 输入 ， 如 图 8-3 所 示 。 
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ee ———T$O COMMAND PROCESSOR 


ENTER TSO COMMAND OR CLIST BELOW: 
===> timegame 


ENTER SESSION MANAGER MODE ===> NO (YES or NO) 


图 8-2 REXX 程序 调用 


NE 
COMMAND ===> tsotimegame 


ISPF LIBRARY : 
PROJECT ---» PREFIX 
GROUP ===> REXX ===> ==> 
TYPE ===> EXEC 
MEMBER ===> TIMEGAME (Blank for member selection list) 


OTHER PARTITIONED OR SEQUENCIAL DATA SET : 
DATA SET NAME ===> 


VOLUME SERIAL ===> (If not cataloged) 


DATA SET PASSWORD ===> (If password protected) 
PROFILE NAME (Blank default to data set type) 
INITIAL „ACRO LOCK ===> YES (YES, NO or NEVER) 


FORMAT NAME MIXED MODE ===> NO 


图 8-3 ISPF 命令 行 中 执行 REXX 程序 


以 上 几 种 方式 ， 均 可 完成 对 名 为 timegame 的 REXX 程序 的 隐 式 调用 。 

如 果 在 隐 式 调用 REXX 程序 时 ， 想 要 缩短 搜索 程序 时 间 ， 则 可 以 通过 在 程序 名 前 加 
上 符号 %， 这 样 系统 会 直接 搜索 SYSEXEC 或 SYSPROC 库 来 查找 对 应 的 REXX 程序 。 
如 果 不 加 符号 %， 则 系统 会 在 搜索 SYSEXEC 和 SYSPROC 库 之 前 ， 先 遍历 其 他 的 系统 
库 ， 以 判断 执行 的 是 TSO 命令 还 是 REXX 脚本 。 

另外 ， 还 可 以 通过 压缩 REXX 程序 的 方式 来 提高 执行 性 能 ， 同 时 优化 系统 存储 ， 其 
前 提 是 该 REXX 程序 被 存放 在 SYSPROC 库 中 , 或 者 使 用 ALTLIB 命令 定义 的 CLIST 应 
用 级 别 程序 库 中 。REXX 程序 压缩 的 主要 过 程 是 删除 注解 、 多 余 的 空格 、 多 余 的 空 行 ， 
达到 缩小 程序 体积 的 目的 。 


3. 后 台 调 用 

前 面 所 述 的 显 式 和 隐 式 调用 均 为 在 TSO/E 前 台 调用 。 而 通过 批 处 理 方式 可 在 后 台 调 
用 REXX 程序 (exec)， 使 之 自动 运行 而 不 需要 人 为 干预 。 此 种 调用 方法 尤为 适合 运行 优 
先 级 较 低 或 者 耗 时 长 且 不 需要 终端 交互 的 REXX 程序 。 

在 后 台 运 行 REXX 程序 , 可 以 使 用 JKEFT01 创建 调用 TSO/E 命令 /CLIST/REXX 所 
需 的 环境 。 例 如 ， 调 用 数据 集 USERID.REXX 中 名 为 REXX1 的 REXX 程序 (exec)， 可 
通过 提交 如 下 JCL 完成 : 


// USERIDA JOB 'ACCOUNT, DEPT, BLDG','PROGRAMMER NAME', 
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// CLASS=J, MSGCLASS=C, MSGLEVEL= (1,1) 

//TMP EXEC PGM-IKJEFTO1, DYNAMNBR-30, REGION=4096K 
//SYSEXEC DD  DSN-USERID.REXX, DISP-SHR 

//SYSTSPRT DD  SYSOUT-A 

//SYSTSIN DD * 

%REXX1 

/* 


上 例 中 ，EXEC 指定 了 执行 实用 程序 JKEFT01。 通 过 提交 (SUBMIT) 该 作业 ， 即 
可 在 后 台 调 用 REXX1 程序 ， 其 执行 结果 如 图 8-4 所 示 。 


MEREREREESEEEEEEEAERESEE S659 9995 TOP OF DATA 555559 56sessoepes sesso eoe 
JES? JOBLOG SYSTEM SOW1 NODE 


09.01.08 JOB06152 — SUNDAY, 26JUN 2011 — 
9.01.0810806152 IRRO10! USERID userid IS ASSIGNED TO THIS JOB. 
09.01.09 JOB06152 ICH70001l userid LAST ACCESS AT 09:00:29 ON SUNDAY, JUNE 26 
09.01.09J0B06152 SHASP373 EXECREXX STARTED -INIT 1 -CLASSA-SYSSOW1 
09.01.09 JOB06152 - ——TIMINGS (MINS.)— 
09.01.09J0B06152 -STEPNAME PROCSTEP RC EXCP CONN TCB SRBC 
09.01.09 JOB06152 -TMP 00 15 10 .00 .00 
09.01.09 JOB06152 -EXECREXX ENDED. NAME- TOTAL TCB CPU TIM 
09.01.09 JOB06152 S$HASP395 EXECREXX ENDED 
—JES2 JOB STATISTICS 一 一 
26JUN 2011 JOB EXECUTION DATE 

7 CARDS READ 

46 SYSOUT PRINT RECORDS 

OSYSOUT PUNCH RECORDS 

3 SYSOUT SPOOL KBYTES 


0.00 MINUTES EXECUTION TIME 
1//EXECREXX JOB NOTIFY-&SYSUID 

IEFC653I SUBSTITUTION JCL - NOTIFY-userid 
2//TMP — EXEC PGM-IKIEFTOL 
3 //SYSEXEC DD DSN-userid.REXX,DISP-SHR 
A J[SYSTSPRT DD SYSOUT-A 
5//SYSTSIN DD* 


1CH70001I userid LAST ACCESS AT 09:00:29 ON SUNDAY, JUNE 26, 2011 
IEF236I ALLOC. FOR EXECREXX TMP 
1EF2371 0D30 ALLOCATED TO SYSEXEC 
1EF2371 JES2 ALLOCATED TO SYSTSPRT 
1EF2371 JES2 ALLOCATED TO SYSTSIN 
IEF1421 EXECREXX TMP - STEP WAS EXECUTED - COND CODE 0000 
IEF2851 userid.REXX KEPT 
IEF285! VOL SER NOS- VPWRKA. 
IEF285I userid.EXECREXX.JOBO6152.D0000102.? SYSOUT 
IEF2851 userid.EXECREXXJOB06152.D0000101.? SYSIN 
IEF3731STEP/TMP — /START 2011177.0901 
IEFO32I STEP/TMP — /STOP 2011177.0901 
CPU: OHR 00 MIN 00.01SEC SRB: OHR O0 MIN 00.00 SEC 
VIRT: 48K SYS: 344K EXT. 328K SYS: 12036K 
IEF3751 JOB/EXECREXX/START 2011177.0901 
IEF0331 JOB/EXECREXX/STOP 2011177.0901 
CPU: OHR 00 MIN 00.01SEC SRB: OHR O0 MIN 00.00 SEC 
READY 
%REXX1 
THIS IS A REXX PROGRAM 
READY 
END 


FEREEREREREREREEREREEEEEEEEEEEFE BOTTOM OF DATA 55556 e EFEREEEREEREREREEEERERERER 


图 8-4 REXX 程序 后 台 执行 结果 查看 
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4. 其 他 调用 

前 文 所 述 内 容 均 为 在 TSO/E 环境 (地址 空间 ) 下 的 REXX 基本 调用 方式 。 除 此 之 外 ， 
还 可 以 通过 CLIST 脚本 , 达到 输入 相应 命令 调用 程序 运行 的 目的 (由 于 CLIST 脚本 就 是 
作为 TSO/E 环境 下 的 命令 序列 )。 

在 此 指出 , 无 论 使 用 以 上 何 种 方式 调用 REXX 程序 (exec)， 都 可 以 在 调用 命令 行 中 
为 被 调 REXX 程序 传递 参数 。 

下 面 的 例子 中 ， 执 行 名 为 add 的 REXX 程序 (exec) 时 ， 需 要 传 入 两 个 加 法 运算 参 
数 42 和 21， 可 以 通过 如 下 方式 : 


EXEC rexx.exec(add) '42 21' exec 


XT REXX 程序 如 何 接受 参数 、 与 终端 如 何 交互 以 及 输入 输出 处 理 等 议题 ， 将 在 本 
章 后 面 的 部 分 陆续 涉及 。 

注意 : 这 里 所 涉及 的 调用 方法 都 是 在 TSO/E 地址 空间 下 的 ， 事 实 上 ， 如 果 要 在 非 
TSO/E 地 址 空间 下 调用 REXX 程序 ， 则 不 能 使 用 TSO/E 命令 ， 需 要 用 别 的 方法 蔡 代 。 

更 多 相关 信息 ， 可 参阅 IBM 白皮书 TSO REXX Users Guide. 


8.2 非 TSO/E 环境 下 REXX 程序 调用 


在 非 TSO/E 环境 下 ， 使 用 TSO/E EXEC 命令 来 调用 REXX 程序 已 不 再 可 行 ， 所 以 
必须 采用 其 他 的 方式 。 在 非 TSO/E 的 地 址 空间 中 调用 REXX 程序 ， 以 下 两 种 方法 都 可 以 
实现 这 个 目的 。 

e 前 台 调 用 ， 在 高 级 别 程序 中 使 用 IRXEXEC 或 IRXJCL 处 理 例 程 〈Processing 

Routine). 

e 后 台 调用 ， 在 JCL 中 将 EXEC 语句 指定 的 程序 (PGM) 设置 为 IRXICL. 

此 外 ，TSO/E 提供 的 环境 服务 (Environment Service) IKJTSOEV， 可 以 在 一 个 非 
TSO/E 的 地 址 空间 中 创建 一 个 TSOAE 地 址 空间 。 在 这 个 被 新 创建 出 来 的 地 址 空间 中 ,用 
户 可 以 自由 使 用 TSO/E 命令 (包括 了 EXEC 命令 )、TSO/E 外 部 函数 , 以 及 其 他 在 TSO/E 
环境 中 可 以 被 REXX 程序 调用 的 服务 。 

关于 TSO/E 环境 服务 的 详细 信息 ， 请 参考 IBM 白皮书 z/OS TSO/E Programming 


Services。 


1. 前 台 调用 

IRXEXEC 和 IRXJCL 都 是 TSO/E 为 REXX 编程 提供 的 服务 例 程 ， 它 们 作为 REXX 
语言 处 理 器 的 编程 接口 ， 为 用 户 提供 了 在 MVS 环境 下 的 任何 地 址 空间 中 ， 调 用 REXX 
程序 的 渠道 。 

如 果 想 通过 在 MVS 地 址 空间 中 运行 的 高 级 语言 程序 来 调用 某 个 REXX 程序 ， 可 以 
fH IRXEXEC EÈ IRXJCL 处 理 例 程 ,如 果 使 用 IRXEXEC, 需要 预先 设置 好 被 调用 REXX 
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程序 的 相关 参数 以 及 其 他 信息 。 
下 面 是 使 用 PLA 程序 以 调用 IRXJCL 从 而 执行 一 个 REXX 程序 的 例子 。 


JCLXMP1 : Procedure Options (Main); 
/* Function: Call a REXX exec from a PL/I program 
using IRXJCL */ 

DCL IRXJCL EXTERNAL OPTIONS (RETCODE, ASSEMBLER); 
DCL 1 PARM STRUCT, 

/* Parm to be passed to IRXJCL */ 

5 PARM LNG BIN FIXED (15), 
/* Length of the parameter */ 
5 PARM STR CHAR (30); 

/* String passed to IRXJCL */ 
DCL PLIRETV BUILTIN; 

/* Defines the return code built-in*/ 
PARM LNG - LENGTH(PARM STR); 

/* Set the length of string */ 
* x 
PARM STR - 'JCLXMP2 This is an arg to exec'; 
/* Set string value In this case, call the exec 

named JCLXMP2 and pass argument: 

'This is an arg to exec' */ 

FETCH IRXJCL; 

/* Load the address of entry point */ 
CALL IRXJCL (PARM STRUCT); 
/* Call IRXJCL to execute the REXX exec and pass 

the argument */ 

PUT SKIP EDIT ('Return code from IRXJCL was:', PLIRETV) (a, f(4)); 
/* Print out the return code from exec JCLXMP2. */ 
END; /* End of program */ 


在 调用 IRXJCL 前 ， 需 要 先 将 参数 列表 的 地 址 传 入 到 寄存 器 1 (Register 1) 中 。 如 
果 IRXJCL 的 调用 遇 到 了 错误 ， 则 会 将 返回 码 RC 传 入 寄存 器 15 中 ， 以 便于 用 户 查 明 错 
误 原因 。 

使 用 IRXEXEC 调用 REXX 程序 ， 相 对 于 使 用 IRXICL 来 调用 能 够 带 来 更 大 的 灵活 
性 。 例 如 ， 当 用 户 想 反复 多 次 执行 一 个 REXX 脚本 时 , 可 以 将 该 脚本 预先 装载 到 内 存 中 ， 
然后 将 其 地 址 传递 给 阴 XEXEC。 这 样 ， 就 避免 了 在 调用 REXX 脚本 时 系统 频繁 地 载 入 
内 存 和 清空 内 存 的 额外 消耗 。 

其 实 ， 在 TSO/E 环境 下 ，IRXEXEC 和 IRXJCL 处 理 例 程 也 常常 用 来 调用 REXX fi 
序 。 因 为 在 显 式 或 隐 式 调用 REXX 程序 的 同时 只 能 传递 一 个 变量 字符 串 ， 而 通过 
IRXEXEC 则 可 以 传递 多 个 变量 字符 串 。 另 外 ,对 于 非 REXX 或 CLIST 的 程序 (如 COBOL 
程序 )， 如 果 想 要 调用 REXX 程序 ， 则 必须 要 用 到 这 两 个 处 理 例 程 。 

关于 IRXEXEC 和 IRXJCL， 以 及 TSO/E 编程 服务 的 详细 信息 ,请 查看 IBM 白皮书 
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TSO REXX Reference. 


2. 后 台 调 用 
如 果 想 在 MVS 批 处 理 环境 下 调用 一 个 REXX 程序 ， 必 须 在 JCL 的 EXEC 语句 中 


将 PROGRAM 参数 设 定 为 IRXJCL。 


TE MVS 环境 下 对 REXX 程序 的 后 台 调 用 与 在 TSO/E 环境 下 后 台 调 用 REXX 程序 非 
常 相似 ， 但 也 有 一 些 不 同 之 处 ， 其 中 最 大 的 区 别 在 于 ，MYVS 环境 下 调用 的 REXX 程序 


无 法 使 用 TSO/E 命令 、TSO/E 外 部 函数 等 功能 。 


下 面 的 例子 在 MVS 环境 下 ， 后 台 调 用 REXX 程序 USERID.MYREXX.EXEC 


(JCLTEST)， 而 作业 的 执行 输出 则 存 入 了 数据 集 USERID.IRXJCL.OUTPUT 中 。 
其 中 ， 执 行 作业 USERID.JCL.EXEC 的 内 容 如 下 。 


//USERIDA JOB NOTIFY=&SYSUID 

//MVSBACH EXEC PGM=IRXJCL, 

// PARM-'JCLTEST Test IRXJCL' 

//OUTDD DD DSN-USERID. TRACE.OUTPUT, DISP-MOD 
//SYSTSPRT DD DSN-USERID.IRXJCL.OUTPUT,DISP-OLD 
//SYSEXEC DD DSN-USERID.MYREXX.EXEC, DISP-SHR 
//SYSTSIN DD * 

First line of data 

Second line of data 

Third line of data 

/* 

// 


在 该 作业 中 ，PARM 参数 对 应 的 字符 串 的 第 一 部 分 (也 即 JCLTEST)， 指 定 的 是 被 
调用 REXX 程序 的 名 称 ; 而 剩 下 的 部 分 ， 则 指定 了 传 给 该 程序 的 参数 变量 (在 REXX 程 


序 中 通过 ARG 语句 接收 这 些 参数 )。 
被 调用 的 REXX 程序 USERID.MYREXX.EXEC(JCLTEST)， 其 代码 如 下 。 


[SCR e dee he de he de de e de de de de ke dede ke e eee ee REXX kkkkkkkkkkkkkkkkkkkkkkkkkk/ 
/* This exec receives input from its invocation in */ 
/* JCL.EXEC, pulls */ 
/* data from the input stream and sends back a condition  */ 
/* code of 137. */ 
[SO XO ko oko keel ko ekle keel loko doleo deii 炎 儿 
TRACE error 
SAY 'Running exec JCLTEST' 
ADDRESS MVS 
PARSE ARG input 
SAY input 
DATA = start 
DO UNTIL DATA - ' 
PARSE PULL data /* pull data from the input stream*/ 
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SAY data 


END 
[k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk */ 


/* Now use EXECIO to write a timestamp to the sequential */ 
/* data set that was allocated to the OUTDD file by the JCL*/ 


/* used to invoke this exec. */ 
J[ NCC oko ke ee de ke ec eek e eee ke ke ke ke ke eek ee ke ke ke de dedede de de de dede de ke keke k kk kkk k */ 


OUTLINE.1 = 'Exec JCLTEST has ended at' TIME() 
"EXECIO 1 DISKW OUTDD (STEM OUTLINE. FINIS" 
/* Write the line */ 
SAY 'Leaving exec JCLTEST' 
EXIT 137 /* send a condition code of 137 */ 


这 个 REXX 程序 首先 读 取 并 输出 JCL 中 PARM 参数 传递 的 变量 ， 随 后 读 取 并 输出 
JCL 中 SYSTSIN 输入 流 中 的 信息 。 接 着 ， 该 程序 将 一 个 时 间 戳 (Timestamp) 写 入 到 了 
JCL 中 指定 的 输出 数据 集 USERID.TRACE.OUTPUT 中 。 最 后 ， 该 程序 返回 Condition 
Code 137。 

时 间 戳 的 输出 数据 集 USERID.TRACE.OUTPUT 中 的 内 容 如 下 。 


Exec JCLTEST has ended at 15:03:06 


而 存放 在 数据 集 USERID.IRXJCL.OUTPUT 中 的 作业 执行 输出 结果 内 容 如 下 。 


Running exec JCLTEST 
Test IRXJCL 

First line of data 
Second line of data 
Third line of data 
Leaving exec JCLTEST 


最 后 ， 可 以 看 到 整个 作业 执行 过 程 的 部 分 信息 如 下 。 


ALLOC. FOR USERIDA MVSBACH 

224 ALLOCATED TO OUTDD 

954 ALLOCATED TO SYSTSPRT 

7E0 ALLOCATED TO SYSEXEC 

JES2 ALLOCATED TO SYSTSIN 

USERIDA MVSBACH - STEP WAS EXECUTED - COND CODE 0137 
USERID.TRACE.OUTPUT KEPT 

VOL SER NOS- TSO032. 

USERID.IRXJCL.OUTPUT KEPT 

VOL SER NOS- TSO032. 

USERID.MYREXX.EXEC KEPT 

VOL SER NOS- TSO001. 

JES2.J90B28359.10000101 SYSIN 

STEP / MVSBACH / START 88167.0826 

STEP / MVSBACH / STOP 88167.0826 CPU OMIN 00.16SEC SRB ... 
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JOB / USERIDA / START 88167.0826 
JOB / USERIDA / STOP 88167.0826 CPU OMIN 00.16SEC SRB ... 


8.3 REXX 程序 的 编译 


通过 使 用 REXX 370 编译 器 ,可 以 在 z/OS 以 及 ZVM 环境 下 对 REXX 程序 进行 编译 。 
实际 上 REXX 编译 器 由 3 部 分 组 成 ， 它 们 分 别 是 : 
e REXX 编译 器 (IBM Compiler for REXX): 该 编译 器 完成 将 REXX 源 程序 转化 为 
可 执行 模块 的 工作 。 
e REXX 库 (IBM Library for REXX): 该 程序 库 提供 在 REXX 可 执行 模块 运行 时 需 
要 调用 的 例 程 Routine). 
e REXX 备用 库 (IBM Alternate Library for REXX) (可 免费 下 载 ): 该 程序 库 可 以 
将 REXX 可 执行 模块 转化 为 REXX 解释 器 可 以 识别 的 形式 。 这 样 的 话 ， 没 有 安 
装 REXX 库 的 系统 ， 也 能 够 执行 REXX 可 执行 模块 。 
关于 REXX 程 序 编译 的 详细 信息 , 可 以 查看 IBM 白皮书 IBM Compiler and Library for 
REXX on zSeries User's Guide and Reference. 


1. 编译 REXX 程序 
接 下 来 的 例子 将 编译 并 执行 本 书 的 第 一 个 REXX FE: Hello World ( 见 第 2 章 )。 
使 用 下 面 这 条 命令 可 以 完成 对 该 程序 的 编译 。 


REXXC 'userid.REXX(HELLO)' CEXEC('userid.CREXX (HELLO)') 


Jtr, REXX 源 程序 为 userid.REXX(HELLO)， 而 编译 后 的 REXX 目标 可 执行 模块 将 为 
userid.CREXX(HELLO)。 执 行 该 命令 的 结果 如 下 。 


REXXC starting 

Compiling 'userid.REXX (HELLO) ' 
PRINT output 'userid.REXX.HELLO.LIST' 
CEXEC output 'userid.CREXX (HELLO) ' 


Compiler return code is 0 
kkk 


可 以 看 到 ， 编 译 过 程 中 的 相关 信息 被 存放 在 系统 自动 生成 的 顺序 数据 集 
userid.REXX.HELLO.LIST 中 。 进 入 该 数据 集 ， 可 以 查看 这 些 信息 。 另 外 ， 在 执行 命令 时 
可 以 指定 PRINT 参数 ， 将 编译 过 程 的 相关 信息 如 顺序 数据 集 直接 打印 到 终端 上 而 不 存 
放 ， 其 命令 如 下 。 


REXXC 'userid.REXX (HELLO) ' 
CEXEC('userid.CREXX(HELLO)') PRINT(*) 


该 命令 的 执行 结果 部 分 信息 如 下 。 
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REXXC starting 

Compiling 'userid.REXX (HELLO) ' 

PRINT output to terminal 

CEXEC output 'userid.CREXX (HELLO) ' 

===> Compilation Summary 

IBM100S.REXX (HELLO) 

IBM Compiler for REXX on zSeries 4.0 LVL PK04822 Time: 20:14:10 Date: 
2011-06-26 Page: pi 

Compilation successful 

===> Compilation Statistics 

userid.REXX (HELLO) 

IBM Compiler for REXX on zSeries 4.0 LVL PK04822 Time: 20:14:10 Date: 
2011-06-26 Page: 3 

REXX Lines 6 

Size of compiled program in bytes 3152 

Finishing time of compilation: 20:14:10 


Compiler return code is 0 
kkk 


随后 ， 运 行 编译 好 的 REXX 可 执行 模块 ， 其 结果 如 图 8-5 所 示 。 


Functions Confirm Utilities 


IBMUSER.CREXX Row00001 of 00003 
Command ===> Scroll ---» PAGE 
Name Prompt Created Changed ID 
. EXEC HELLO 
|... PERFORM 
|. PERFORM2 
**End** 


WHAT'S YOUR NAME? 
USER 
HELLO WORLD! THIS IS USER 


xk 


图 8-5 REXX 程序 执行 结果 


2. 编译 REXX 程序 性 能 测试 

在 第 2 章 中 已 经 提 到 ， 对 REXX 程序 进行 编译 ， 可 以 提升 性 能 、 降 低 系统 装载 量 、 
保护 源 代 码 安全 、 提 升 编程 效率 和 质量 ， 以 及 提升 编译 后 程序 的 可 移植 性 等 。 事 实 上 ， 
通过 对 于 执行 REXX 源 程序 以 及 REXX 编译 模块 的 性 能 比较 ， 确 实 可 以 发 现 ， 执 行 编 译 
后 的 REXX 程序 的 性 能 要 高 出 许多 。 

首先 针对 字符 串 处 理 进行 测试 ， REXX 脚本 代码 如 下 。 


/* REXX */ 
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PARSE VERSION v 

SAY v 

N = TIME('E') 

DO I =1 TO 5000000 
A = 'STRING' 
N-II|IIA 

END 

SAY TIME('E') 


通过 REXX 解释 器 ， 执 行 该 REXX 脚本 ， 其 输出 结果 如 下 。 


REXX370 3.48 01 MAY 1992 
11.693426 


即 以 解释 的 方式 执行 该 脚本 ， 需 要 花费 的 时 间 为 11.693426 秒 。 而 执行 该 REXX 脚 
本 的 编译 模块 ， 其 输出 结果 如 下 。 


REXXC370 3.48 23 DEC 1999 
1.196127 


即 以 编译 的 方式 执行 该 脚本 ， 需 要 花费 的 时 间 仅 为 1.196127 秒 ， 不 到 直接 执行 该 肢 
本 所 需 花 费时 间 的 10%， 可 以 说 ， 性 能 有 了 大 幅度 的 提升 。 
接 下 来 是 针对 算术 操作 进行 测试 ，REXX 脚本 代码 如 下 。 


/* REXX */ 

PARSE VERSION v 

SAY v 

N - TIME('E') 

DO I -1 TO 1000000 
N-—1*: 

END 

SAY TIME('E') 


同样 通过 REXX 解释 器 ， 执 行 该 REXX 脚本 ， 其 输出 结果 如 下 。 


REXX370 3.48 01 MAY 1992 
3.491962 


而 执行 这 第 二 个 REXX 脚本 的 编译 模块 ， 其 输出 结果 如 下 。 


REXXC370 3.48 23 DEC 1999 
0.230007 


可 见 ， 进 行 算术 操作 时 ， 两 种 REXX 程序 执行 方式 的 性 能 差距 甚至 更 为 巨大 。 在 通 
常情 况 下 ， 根 据 程序 的 类 型 不 同 ， 执 行 编译 后 的 REXX 程序 会 带 来 的 性 能 提升 的 预期 结 
果 如 表 8-1 所 示 。 

其 中 ， 性 能 提升 幅度 最 大 的 是 执行 大 量 算术 操作 ， 而 性 能 提升 幅度 最 小 的 是 执行 宿 
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主 命令 ， 因 为 编译 器 无 法 减少 宿主 环境 执行 这 些 命令 的 时 间 。 
表 8-1 REXX 程序 编译 执行 优势 


程序 主要 操作 
算术 运算 Carithmetic operations) 


字符 串 处 理 (string and word processing operations) 


常量 和 变量 操作 Cconstants and variables) 


调用 过 程 及 内 置 函 数 (references to procedures and built-in functions) 


修改 变量 值 (changes to values of variables) 
赋值 操作 (assignments) 
重用 复合 变量 (reused compound variables) 


宿主 命令 (host commands) 


文件 vo 


REXX 程序 的 调试 


一 个 好 的 程序 ， 需 要 具有 一 定 的 可 靠 性 、 易 维护 性 ， 能 够 考虑 到 特殊 情况 的 处 理 以 
及 给 用 户 提示 出 错 信息 等 。 在 第 2 章 中 ， 已 经 简单 介绍 了 REXX 程序 的 调试 方法 ， 本 章 
将 详细 讲解 这 些 命令 的 使 用 方法 以 及 调试 工具 的 操作 。 


9.1 异常 情况 的 跟踪 


异常 情况 是 指 在 REXX 中 ， 当 使 用 了 CALL ON & SIGNAL ON 时 ， 可 以 被 跟踪 的 
事件 或 状态 , 通过 对 一 个 特定 情况 的 跟踪 ,可 以 改变 程序 的 执行 顺序 ， 具体 的 用 法 如 下 。 


CALL/SIGNAL ON/OFF condition (trapname) 


首先 需要 通过 ON 或 OFF 来 指定 是 否 开启 对 特定 情况 的 跟踪 工作 。 在 默认 情况 下 ， 
所 有 的 跟踪 都 是 关闭 的 。 如 果 开 启 了 对 特定 事件 的 跟踪 ， 那 么 一 旦 特定 事件 发 生 了 ， 程 
序 会 跳 转 到 对 应 的 处 理 位 置 (trapname 处 ) 继续 执行 。 在 CALL 指令 中 ，trapname 可 以 
是 内 部 标签 、 内 置 函 数 或 外 部 例 程 的 名 字 ， 但 是 SIGNAL 指令 中 ，trapname 只 能 是 程序 
内 部 的 标签 。 另 外 ， 每 一 个 CALL/SIGNAL ON/OFF 指令 都 将 取代 之 前 的 设置 。 


911 事件 分 类 


被 跟踪 的 事件 (Condition) 有 5 种 : Error、Failure、Halt、Novalue、Syntax。 

(D ERROR， 指 如 果 命 令 产 生 了 error; 或 者 是 命令 failure 但 并 未 设置 CALL ON 
FAILURE 或 SIGNAL ON FAILURE， 则 在 该 命令 调用 的 返回 处 进行 事件 处 理 。 但 是 如 果 
在 此 之 前 ， 已 经 有 ERROR 的 事件 延迟 处 理 〈 处 于 Delay 状态 )， 将 忽略 此 处 的 ERROR 
事件 。 

在 TSO/E 环境 下 ，SIGNAL ON ERROR 指令 跟踪 所 有 命令 返回 码 为 正 的 情况 ， 以 及 
那些 未 被 CALL/SIGNAL ON FAILURE 跟踪 的 命令 返回 码 为 负 的 情况 。 


SIGNAL ON ERROR 
"LISTSD DA(TE02.DB2.SRC)"  /* 错误 的 TSO/E 命令 */ 
EXIT 

ERROR: 
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SAY "ERROR IS RAISED" /* RESULT */ 


(2) FAILURE， 指 如 果 命 令 产生 了 failure 的 结果 ， 将 在 命令 执行 返回 处 被 跟踪 。 如 
果 此 前 有 延迟 处 理 的 FAILURE 事件 ， 此 处 的 事件 将 被 忽略 。 在 TSO/E 环境 下 ， 
CALL/SIGNAL ON FAILURE 指令 跟踪 所 有 命令 返回 码 为 负 的 情况 。 


SIGNAL ON FAILURE 

CALL FUNCADD("Functionl1", "myOpe", "Function2") 
/* 如 果 FUNCADD 函数 执行 失败 ,将 跳 转 到 FAILURE 处 理 程序 */ 
EXIT. 

FAILURE: 

SAY "FAILURE IS RAISED." /* RESULT */ 


G) HALT， 指 如 果 有 外 部 命令 (如 PAD 试图 中 断 或 终止 程序 的 执行 ， 将 在 被 中 止 
的 语句 结束 处 开始 跳 转 到 HALT 事件 处 理 。 如 在 TSO/E 环境 下 ，HI 和 EXECUTIL HI 会 
引起 HALT 事件 ，HE 则 不 会 引起 此 事件 。 


/* REXX */ 

SIGNAL ON HALT 

DO I-1 TO 10000 /* PR1 pressed and HI enterred */ 
SAY HELLO 

END 

EXIT 

HALT: 

SAY "HALT IS RAISED." /* Result */ 


(4) NOVALUE， 指 如 果 未 初始 化 的 变量 用 在 表达 式 中 , RHE PARSE VAR 之 后 的 
PROCEDURE 或 DROP 指令 中 时 ， 将 被 跟踪 。 注 意 ，SIGNAL ON NOVALUE 指令 将 对 
除了 复合 变量 尾部 之 外 的 所 有 未 初始 化 的 变量 进行 跟踪 。 


SIGNAL ON NOVALUE 
DROP VAR 

SAY VAR /* 触发 NOVALUE */ 
SAY 'NOVALUE IS NOT RAISED." 

EXIT 

NOVALUE: 

SAY 'NOVALUE IS RAISED.' /* RESULT */ 


(5) SYNTAX， 指 在 编译 过 程 中 如 果 出 现 了 错误 ， 包 括 语法 错误 和 运行 时 错误 。 如 
对 非 数字 进行 算术 运算 等 ， 该 事件 仅 对 SIGNAL 指令 有 效 。 


/* REXX */ 

SIGNAL ON SYNTAX 

SAY A+B /* SYNTAX ERROR */ 
SAY "SYNTAX ERROR IS NOT RAISED." 

EXIT 


SYNTAX: 
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SAY "SYNTAX ERROR IS RAISED." /* RESULT */ 


9.1.2 事件 处 理 


如 果 当 前 对 事件 的 跟踪 被 关闭 , 而 特定 的 事件 又 发 生 了 ,那么 对 于 HALT 和 SYNTAX 
事件 ， 程 序 将 终止 执行 ， 同 时 会 给 用 户 反馈 一 条 表明 发 生 事件 的 提示 信息 ， 其 他 事件 将 
不 做 处 理 。 

DROP VAR 


SAY VAR /* NOVALUE 事件 ,正常 执行 ,输出 VAR */ 
EXIT 


NEWDATE = DATE('F') 

SAY NEWDATE /* SYNTAX 事件 ,不 能 执行 */ 
EXIT 

/x 报错 信息 如 下 */ 

2 +++ NEWDATE = DATE('F') 

Error running TEST, line 2: Incorrect call to routine 


如 果 当 前 对 事件 的 跟踪 被 开启 ， 而 特定 的 事件 又 发 生 了 ， 那 么 将 有 对 应 的 子 程序 处 
理 。 如 果 是 由 SIGNAL 指令 进行 的 跟踪 ， 那 么 处 理 之 后 ， 该 跟踪 将 被 关闭 。 如 果 想 继续 
对 同样 的 事件 进行 跟踪 ， 则 需要 再 次 使 用 SIGNAL/CALL ON. 

如 果 是 由 CALL 指令 进行 的 跟踪 ， 那 么 将 按照 正常 的 CALL 指令 流程 执行 ， 但 是 不 
对 RESULT 赋值 。 同 时 ， 如 果 这 些 事件 发 生 在 INTERPRET 指令 执行 期 间 ， 那 么 
INTERPRET 指令 将 被 终止 ， 在 RETURN 之 后 继续 执行 。CALL 指令 并 不 会 影响 原本 程 
序 的 执行 顺序 。 

在 交互 式 跟踪 模式 下 ， 当 处 理 用 户 的 输入 信息 时 , 对 事件 的 跟踪 状态 将 被 暂时 关闭 。 
这 样 做 是 为 了 防止 程序 的 意外 跳 转 ， 同 样 ， 任 何 语法 错误 都 不 会 使 程序 退出 ， 而 是 给 出 
一 个 提示 信息 。 


91.3 事件 信息 


当 开 启 对 某 个 事件 的 处 理 ， 相 关 的 信息 将 被 记录 下 来 。 可 以 用 CONDITION 内 置 函 
数 来 查看 ， 包 括 事件 名 称 、 跟 踪 指 令 (CALL 或 SIGNAL)、 事 件 的 状态 以 及 该 事件 相关 
的 描述 信息 等 。 

当 程 序 跳 转 到 跟踪 事件 处 理 程序 部 分 ， 系 统 开始 记录 相关 的 事件 信息 ， 同 时 这 些 信 
息 在 函数 和 子 例 程 的 调用 过 程 中 将 被 保存 ， 因 此 可 以 使 用 CALL ON 命令 来 查看 当前 的 
跟踪 信息 ， 在 该 命令 返回 后 ， 之 前 的 跟踪 信息 也 可 以 查询 到 。 

记录 信息 的 内 容 如 下 。 

e 对 于 ERROR £l FAILURE 事件 ，REXX 程序 会 记录 引发 事件 的 语句 。 

e 对 于 HALT 事件 ，REXX 程序 会 记录 和 HALT 事件 相关 的 信息 。 
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e 对 于 NOVALUE 事件 ， 记 录 引 发 事件 的 变量 名 称 。 


。 对 于 SYNTAX 事件 ， 记 录 编 译 时 引发 事件 的 语句 ， 可 以 为 空 ， 通 过 特殊 变量 RC 


和 SIGL 可 以 得 到 更 具体 的 编译 错误 信息 。 


示例 如 下 。 

/* REXX */ 

SIGNAL ON SYNTAX 

A-A-*1 /* SYNTAX ERROR */ 

SAY 'SYNTAX ERROR NOT RAISED' 

EXIT 

SYNTAX: 

SAY "CONDITION NAME:" CONDITION('C')  /* CONDITION NAME: SYNTAX */ 
SAY "INSTRUCTION:" CONDITION('I') /* INSTRUCTION: SIGNAL */ 
SAY "STATUS:" CONDITION('S') /* STATUS: OFF */ 
SAY "DESCRIPTION:" CONDITION ('D') /* DESCRIPTION: wy 


9.2 诊断 函数 的 使 用 


在 调试 程序 的 时 候 ， 可 以 使 用 REXX 内 置 函 数 来 帮忙 查找 相关 的 出 错 信 息 ， 它 们 是 
SOURCELINEO、CONDITIONO 和 ERRORTEXTO。 这 3 个 函数 是 在 诊断 REXX 程序 时 


常用 的 函数 ， 在 第 4 章 已 经 简单 介绍 过 ， 下 面 着 重 介绍 用 它们 来 调试 程序 的 方法 。 


1. REXX 内 置 函 数 
(1) SOURCELINE 函数 


SOURCELINE 函数 用 于 返回 程序 源 代 码 ， 使 用 方法 是 SOURCELINE(C)， 其 中 盖 指 


定 要 查看 的 代码 所 在 的 行 数 。 如 果 未 指定 ”的 值 ， 则 返回 源 程序 代码 的 行 数 ， 如果 对 源 


程序 没有 访问 权限 ， 则 返回 


0; 如 果 无 法 读 取 到 第 行 的 数据 ， 就 返回 空 字 串 。 注 意 ,nn 


必须 是 一 个 正 整数 且 不 能 超过 源 代码 的 行 数 范 围 。 


/* REXX */ 

SAY HELLO WORLD 

SAY SOURCELINE() /* return lines of source code : 4 */ 
SAY SOURCELINE (2) /* SAY HELLO WORLD */ 


(2) CONDITION 函数 


CONDITION 函数 返回 当前 跟踪 事件 的 相关 信息 ， 通 过 以 下 可 选 参数 来 选择 返回 的 


信息 类 别 。 
(D Condition name， 返 回 当前 跟踪 事件 的 名 称 。 


CONDITION('C') -> "ERROR 


@ Description， 返 回 当前 跟踪 事件 的 相关 描述 信息 ， 详 见 9.4.3 Ti. 
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CONDITION('D') -> 'SIGINT' 


图 Instruction, REl CALL 或 SIGNAL， 即 发 起 事件 跟踪 的 指令 。 


CONDITION('I') -> 'CALL' 


@ Status， 返 回 当前 被 跟踪 事件 的 状态 ， 可 以 是 ON. OFF 和 DELAY, ON. OFF 
分 别 表 示 对 该 事件 的 跟踪 已 开启 、 关 闭 ，DELAY 则 表示 后 续 新 的 同类 型 事件 将 被 忽略 。 


CONDITION('S') -> 'OFF' 


(3) ERRORTEXT 函数 

ERRORTEXT 函数 返回 相应 的 error 信息 ， 格 式 为 ERRORTEXT(n)， 其 中 指定 了 
错误 代码 , 在 0~99 之 间 。 错 误 代 码 是 在 REXX 程 序 执行 期 间 产 生 的 ,并且 当 指定 SIGNAL 
ON SYNTAX 时 ， 存 放 在 特殊 变量 RC 中 。 


ERRORTEXT(7) -> ' WHEN or OTHERWISE expected ' 
ERRORTEXT(6) -> ' Unmatched "/*" or quote ' 


2. 特殊 变量 RC 和 SIGL 

在 REXX 语言 中 ， 共 有 3 个 特殊 变量 ， 分 别 是 RC、RESULT 和 SIGL。 特 殊 变 量 没 
有 初始 值 ， 可 以 直接 使 用 。 其 中 RC 和 SIGL 可 以 用 于 程序 的 调试 。 

(OD 特殊 变量 RC 

在 ERROR. FAILURE 和 SIGNAL SYNTAX 事件 中 ， 系 统 会 在 程序 跳 转 到 事件 处 理 
程序 前 将 相应 命令 的 返回 码 或 对 应 语法 错误 的 序号 赋 给 RC 变量 ，HALT 和 NOVALUE 
事件 不 影响 RC 的 值 ， 在 调试 模式 下 手动 输入 的 宿主 命令 也 不 影响 RC 的 值 。 

/* REXX */ 

“LISTOS ?" 

SAY "RC" RG /* 12 */ 


(2) 特殊 变量 SIGL 

在 CALL 和 SIGNAL 指令 跳 转 之 后 ， 系 统 将 跳 转 之 前 最 后 被 执行 的 语句 行 数 存 储 在 
SIGL 中 ， 可 以 用 来 帮助 判断 错误 的 发 生 原 因 ， 如 下 例 ， 在 事件 处 理 程序 中 ， 输 出 了 错误 
代码 、 发 生 的 行 数 和 错误 信息 ， 然 后 得 到 了 发 生 错 误 的 具体 代码 。 


SIGNAL ON SYNTAX 
A=A+1/* 产 生 SYNTAX ERROR */ 

SAY 'SYNTAX ERROR NOT RAISED' 

EXIT 

/* 标准 SIGNAL ON SYNTAX 处 理 程序 */ 

SYNTAX: 

SAY 'REXX ERROR' RC 'IN LINE' SIGL':' ERRORTEXT (RC) 
SAY SOURCELINE (SIGL) 
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9.3 程序 异常 处 理 示 例 


在 了 解 了 REXX 的 异常 事件 处 理 及 诊断 函数 之 后 ， 来 看 两 个 具体 的 案例 。 

案例 一 : NOVALUE 异常 处 理 。 通 过 下 面 的 NOVALUE 异常 处 理 代码 ， 程 序 
REXXSAMP 出 现 变 量 未 初始 化 的 异常 时 ， 系 统 将 返回 更 详细 的 错误 信息 ， 以 帮助 用 户 
定位 问题 变量 ， 及 时 更 正 。 


/* REXX REXXSAMP source code */ 

SIGNAL ON NOVALUE 

Say VAR 

EXIT 

/* NOVALUE EVENT HANDLER */ 

NOVALUE: 

Trace N 

Do While Queued()<>0 /* Clear the data stack */ 
Pull 


Say "EXEC REXXSAMP: Uninitialized variable used." 
Say "Name of uninitialized variable: " Condition ('D') 
Say "Problem line number=" sigl 

Say "Problem line content: "Sourceline (sigl) 

EXIT 


/* REXXSAMP 运行 结果 */ 

EXEC REXXSAMP: Uninitialized variable used. 
Name of uninitialized variable: VAR 
Problem line number= 3 

Problem line content: Say VAR 


案例 二 : ERROR 异常 处 理 。 当 程序 REXXSAMP 出 现 命令 执行 错误 时 ， 通 过 下 面 的 
ERROR 异常 处 理 代码 , REXX 程序 将 返回 更 详细 的 错误 信息 , 以 帮助 用 户 定位 问题 命令 ， 
及 时 更 正 。 


/* REXX REXXSAMP source code */ 

SIGNAL ON ERROR 

"LISTSD" 

EXIT 

/* ERROR EVENT HANDLER when non zero rc from the host environment */ 
ERROR: 

Signal off Error 

Signal off Novalue 

Trace N 

Do While Queued()«»50 /* Clear the data stack */ 
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Pull 
End 
Say "EXEC REXXSAMP: Host command failed or data format error." 
Say "RC -" rc 
Say "Error line number - " sigl 
Say "Error line content = " Sourceline (sigl) 


Say "Error message text: " Condition('D') 
EXIT 


/* REXXSAMP 运行 结果 */ 

EXEC REXXSAMP: Host command failed or data format error. 
RC - -3 

Error line number - 3 

Error line content - "LISTSD" 


Error message text: LISTSD 


94 使 用 Trace 指令 


Trace 指令 用 来 控制 程序 的 跟踪 流程 ， 显 示 程 序 执行 时 的 语句 输出 。TRACE 指令 通 
常用 于 调试 ， 可 以 实现 交互 式 的 调试 功能 。TRACE 指令 的 格式 如 下 。 

TRACE (number) 

TRACE (?/!+ 'Normal/All/Commands/Error/Failure/Intermdiates/Labels/Off/ 


Results/Scan') 
TRACE (string/symbol/expression) 


下 面 将 介绍 这 3 种 指令 格式 的 具体 用 法 。 
944 字母 参数 


在 TRACE 函数 中 ， 可 以 指定 跟踪 的 内 容 和 方式 ， 具 体 的 参数 如 下 ， 程 序 中 可 以 只 
用 大 写 的 首 字母 代表 。 

e Al: 跟踪 所 有 语句 。 

e Commands: 显示 所 有 被 跟踪 的 命令 ， 如 果 命 令 执行 结果 有 误 ， 再 输出 命令 的 返 


回 值 。 

e Error: 跟踪 那些 执行 后 出 错 Cerror 或 failure) 的 命令 ， 即 返回 码 非 0 的 命令 ， 并 
记录 它们 的 返回 码 。 

e Failure: 跟踪 那些 造成 系统 错误 (failure) 的 命令 ， 即 返回 码 为 负 的 命令 ， 并 记 
录 返 回 码 


e Intermediates: 跟踪 所 有 语句 ， 并 且 记 录 生 成 表达 式 和 名 称 蔡 换 等 中 间 执 行 结果 。 
e Labels: 跟踪 标签 的 执行 ， 特 别 适 合 在 调试 模式 下 使 用 。 帮 助 用 户 跟踪 所 有 内 部 
子 例 程 的 调用 以 及 Signal 指令 对 程序 控制 权 的 转换 。 
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e Normal: 跟踪 那些 执行 后 返回 码 为 负 的 语句 以 及 它们 的 返回 码 ， 是 默认 类 型 。 

e Off: 不 跟踪 语句 ， 并 且 恢 复 特殊 前 级 的 默认 属性 。 

e Results: 跟踪 全 部 语句 ， 并 且 输 出 表达 式 转 换 的 最 终结 果 ( 非 中 间 结 果 )， 以 及 
PULL. ARG, PARSE 指令 的 赋值 结果 ， 通 常 在 调试 时 使 用 。 

e Scan: 跟踪 所 有 未 处 理 的 数据 ， 通 常 进行 一 些 基本 格式 的 检查 (如 缺少 END) 
等 ， 前 提 是 TRACE S 命令 本 身 没有 被 嵌 套 在 指令 中 。 

下 面 是 一 些 对 应 内 容 的 跟踪 示例 。 

(1) A 选项 的 跟踪 过 程 ， 输 出 程序 指令 ， 并 显示 执行 输出 。 


/* REXX source code */ 
TRACE 'A' 

QUEUE 'some data" 

PULL MyVar 

SAY MyVar 

EXIT 


/* 跟踪 输出 */ 
3 *-* QUEUE 'some data' 
4 *-* PULL MyVar 
5 *-* SAY MyVar 
SOME DATA 
6 *-* EXIT 


(2) 在 RR 选项 的 跟踪 过 程 ， 与 A 相似 ， 但 是 显示 了 参数 的 传递 过 程 。 


3 *-* QUEUE 'some data" 
»»» "some data" 

4 *-* PULL MyVar 
>>> "SOME DATA" 

5 *-* SAY MyVar 
>>> "SOME DATA" 

SOME DATA 
6 *-* EXIT 


(3) 在 工 模式 下 ， 跟 踪 标 签 的 执行 。 


/* REXX source code */ 
TRACE 'L' 
DO i = 1 TO 10 
CALL Sub 
IF i = 3 THEN SIGNAL jump 
END 
jump: 
EXIT 
Sub: 
RETURN 
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/* 跟踪 输出 */ 

9 *—k Sub: 
*-*. Subs 
*—* Sub: 

7 *-* jump: 


(4) 在 C 模式 下 ， 显 示 传 送 给 外 部 环境 的 命令 字符 串 。 下 例 中 命令 以 外 的 语句 ， 如 
A=1、B=2 都 不 会 被 跟踪 ， 只 有 命令 LU 被 跟踪 。 


/* REXX source code */ 
TRACE 'C' 

A-1; 

USER-USERID() 

'LU 'USER 

B-2 


/* 跟踪 输出 */ 
5 *-* 'LU 'USER 
>>> "LU TEO2" 


(5) 在 I 模 式 下 ， 输 出 执行 时 的 详细 处 理 信 息 。 


TRACE 'I' 

MyVar = 'This is some data' 
PARSE VAR MyVar tokenl. token2. 
EXIT 


/* 跟踪 输出 */ 

3 *-* MyVar = 'This is some data' 
>L> "This is some data" 

4 *-* PARSE VAR MyVar tokenl . token2 . 
>>> "This" 


Sue “iar 

>>> "some" 

>.> "data" 
5 *-* EXIT 


942 mit 


TRACE 指令 有 两 个 前 级 ? 和 !， 可 以 单独 使 用 ， 也 可 以 和 字母 选项 共同 使 用 ， 如 果 
和 字母 一 起 使 用 ， 注 意 在 两 者 中 间 不 能 插入 空格 。 

! 前 缀 用 于 停止 宿主 命令 的 执行 〈 但 是 可 以 调试 )， 如 TRACE !C 指令 使 得 所 有 命令 
被 跟踪 但 是 不 被 执行 ， 即 跳 过 这 些 命令 ， 因 为 所 有 的 命令 都 没有 真正 执行 ， 所 以 RC 将 
会 是 0。 这 个 前 级 通常 用 于 调试 某 些 特殊 的 有 潜在 危险 的 REXX 程序 ， 来 避免 调试 过 程 
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中 REXX 程序 对 主机 环境 造成 破坏 。 输 入 一 次 TRACE ! 可 以 进入 该 模式 ， 而 再 次 输入 
TRACE ! 即 可 关闭 该 模式 。 在 调试 的 任意 时 刻 输 入 TRACE O， 或 者 输入 TRACE， 也 可 
以 关闭 该 模式 。 注 意 ， 在 交互 调试 模式 下 输入 的 宿主 指令 ， 永 远 会 被 真正 执行 ， 不 受 ! 
前 级 指令 的 影响 ， 但 是 不 会 对 RC 赋值 。 

"NEWSTACK" 

"NEWSTACK" 

"NEWSTACK" 

"OSTACK" 

TIMES = RC-1 /* TIMES = 3 */ 

DO TIMES 

TRACE !C 

"DELSTACK" /* 该 命令 并 未 执行 */ 

END 

TRACE O /* 关闭 调试 */ 

"OSTACK" /* RC = 4 */ 


调试 输出 : 

10 *-* 'DELSTACK' 

? 前 级 用 于 控制 交互 式 调试 ， 如 TRACE ?E 指令 使 得 编译 器 在 每 次 命令 执行 出 错时 
暂停 等 待 用 户 输入 。 注 意 ， 当 使 用 了 交互 调试 后 ， 程 序 内 原 有 的 TRACE 指令 将 被 忽略 。 
这 是 为 了 避免 交互 调试 意外 中 断 。 

? 和 ! 可 以 视 为 开关 ， 它 们 将 使 得 TRACE 指令 分 别 进入 不 同 的 模式 。 
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在 TRACE 指令 中 ， 如 果 开启 了 交互 式 模式 ， 可 以 使 用 正 整数 指定 在 调试 时 跳 过 的 
“暂停 ”次 数 ， 如果 指 定 的 是 一 个 负数 ， 那 么 接 下 来 的 指定 数目 的 语句 ， 都 不 会 被 跟踪 ， 
包括 调试 都 将 被 禁用 ， 指 定数 目 之 后 的 语句 将 会 继续 进入 交互 式 调试 模式 。 


TRACE ?I 

A-21 

B=2 

C=3 

D= 4 

IF (A > B) | (C < 2 * D) THEN 

SAY 'At least one expression was true.' 
ELSE 

SAY 'Neither expression was true.' 
/* 调试 输出 : */ 

12 *-* A-1 

»L» "1" 


+++ Interactive trace. TRACE OFF to end debug, ENTER to continue. 
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/* 此 时 输入 TRACE 3, 后面 的 3 句 语句 将 被 REXX 跟踪 执行 , 但 不 是 交互 式 的 ,运行 不 会 < 暂停 % 
运行 情况 如 下 ;另外 如 果 输入 TRACE -3, 则 后 面 的 3 句 执行 将 根本 不 会 被 跟踪 执行 */ 
13 二 B-2 


»L» "2" 

14 *-*C=3 

»h» "3" 

15 *-* D= 4 

»L» "4" 

16 *-* IF {A > B) | «C-$ 2 * D) 
»V» "1" 


>V> "2" 


/* 运行 到 第 四 个 语句 , REXX 再 次 进入 交互 式 调试 模式 */ 
*-* THEN 

17 *-* SAY 'At least one expression was true.' 
»L» "At least one expression was true." 

At least one expression was true. 


9.4.4 TRACE 指令 输出 格式 


每 条 跟踪 语句 的 输出 根据 它 嵌 套 的 深度 来 自动 调整 格式 。 编 译 器 会 先 用 ? 替换 所 有 
编码 在 数据 中 的 控制 字符 ， 如 果 有 结果 输出 ， 将 空 两 个 字符 的 位 置 并 用 双 引 号 括 起 来 ， 
突出 前 后 的 空格 。 每 行 会 有 一 个 标号 ， 如 果 超 过 了 99999， 将 被 从 左 侧 截断 ， 并 通过 ? 
来 提示 截断 操作 ， 如 100354 会 显示 为 ? 00354。 并 且 ， 每 行 跟踪 结果 的 输出 都 有 一 个 3 
位 字符 的 前 级 来 标识 跟踪 的 数据 类 型 ， 这 些 前 缀 有 如 下 几 种 类 型 。 

(1) *-* 标 识 来 源 于 一 条 语句 ， 即 程序 中 真实 的 数据 。 

(2) +++ 标 识 一 条 跟踪 信息 ， 可 能 是 非 零 的 返回 码 、 交 互 式 调 试 时 的 提示 信息 、 语 
法 错误 提示 等 。 

(3) >>> 标 识 一 个 表达 式 的 解析 结果 或 子 例 程 的 返回 码 。 

(4) >.> 标 识 在 数据 解析 时 赋 给 占 位 符 的 值 。 


TRACE 'R' 

MyVar = 'This is some data' 

PARSE VAR MyVar tokenl . token2 . 
EXIT 


/* RR 模式 下 , 当 有 多 个 参数 时 ,分 别传 递 赋值 */ 

2 *-* MyVar = 'This is some data' 

3 *-* PARSE VAR MyVar tokenl . token3 . 
»»» "This" 
>>> "some" 

A +-* EXIT 


183 


1841| ”大 型 主机 系统 管理 REXX 编程 详解 


K 9-1 列 出 一 些 输出 前 级 ， 这 些 前 级 只 有 指定 TRACEI 时 才 会 显示 。 
表 9-1 指定 TRACE | 才 会 显示 的 一 些 前 缀 


BEA 说 — BB 

>C> 标识 一 个 复合 变量 在 解析 蔡 换 之 后 的 名 字 

>F> 标识 一 个 函数 调用 的 结果 

>L> 标识 一 个 字符 串 ， 可 以 是 未 初始 化 的 或 字符 常量 
20» 标识 一 个 两 项 运算 的 结果 

>P> 标识 一 个 前 级 运算 的 结果 

>V> 标识 一 个 变量 的 内 容 


如 下 例 ， 使 用 TRACE I 指 令 跟踪 一 段 表 达 式 的 计算 和 判断 。 


X = 9 
y-2 
TRACE I 


IF x 1» 5* y THEN 
SAY 'x is big enough." 
ELSE NOP 


/* 运行 程序 后 ， 屏 幕 显示 如 下 */ 
9 *-* IFx+1>5*y /* 显示 被 跟踪 的 行 数 为 9 以 及 对 应 的 语句 */ 


Sys "9" /* 变量 x 的 值 为 9 */ 

SL "jr /* 第 二 个 输入 的 常量 值 为 1 */ 

50» "19" /* x+1 的 结果 为 10 */ 

»L» "5" /* 下 一 个 输入 的 常量 值 为 5 */ 

5 "2" /* 变量 y 的 值 为 2 */ 

5o» "10" /* 5*y 的 结果 为 10 */ 

»0» "0" /* 最 终 运 算 10>10 的 结果 为 假 COD */ 


如 果 在 TRACE 指令 中 未 指定 任何 的 参数 ， 或 一 条 表达 式 的 解析 结果 为 空 ， 那 么 将 
使 用 默认 的 格式 ， 即 TRACE N, ! 和 ? 都 是 关闭 的 。 


9.5 中断 程序 的 执行 


在 TSO/E 环境 下 ,可 以 使 用 HI 或 者 EXECUTIL HI 命令 挂 起 当前 执行 的 程序 , 或 暂 
停 对 当前 执行 语句 的 翻译 过 程 ， 常 用 于 终止 循环 等 。 使 用 HI 命令 后 ， 数 据 栈 将 被 清空 。 
同时 ， 在 TSO/E 和 非 TSO/E 环境 下 都 可 使 用 IRXIC 例 程 来 执行 HI 命令 。 


6 *-* D =4 
22» "A" 

executil hi 

6 +++ executil hi 
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6 +++ D =4 


Error running TEST, line 6: Program interrupted 


HE 命令 也 可 以 中 断 程序 的 执行 。 与 HI 不 同 ，HE 命令 立即 执行 而 不 是 等 到 控制 权 
返回 到 REXX 程序 后 。 如 果 REXX 程序 调用 一 个 非 REXX 的 外 部 例 程 ， 或 者 正在 执行 
一 个 宿主 命令 ， 那 么 当 使 用 HI 命令 时 ， 程 序 会 等 到 返回 REXX 环境 下 时 再 被 挂 起 。 如 
果 调 用 的 外 部 程序 不 能 正常 返回 到 原 REXX 程序 ， 或 宿主 命令 被 挂 起 以 致 无 法 返回 时 ， 
可 以 使 用 HE 命令 来 中 断 当 前 程序 的 执行 。EXECUTIL fi IRXIC 命令 不 支持 HE 操作 。 


5*x-*0c-3 
on» "gg" 
| /* 按 下 中 断 键 (PAL) */ 
ENTER HI TO END, A NULL LINE TO CONTINUE, OR AN IMMEDIATE COMMAND+ - 
HI 


6 *-* D =4 
>>> "y" 
6 +++ D =4 
Error running TEST, line 6: Program interrupted 


在 程序 中 ,可 以 用 TS BÈ EXECUTIL TS 命令 开启 对 程序 的 跟踪 ,用 TE £X EXECUTIL 
TE 命令 关闭 跟踪 ， 和 TRACE O 指令 的 作用 相同 ， 适 用 于 在 非 交 互 式 调试 的 模式 下 结束 
跟踪 程序 。 

如 果 试 图 中 断 在 REXX 程序 中 执行 的 宿主 命令 ， 编 译 器 会 停止 宿主 命令 的 执行 ， 并 
对 RC 赋值 -1。 这 种 情况 下 ， 编 译 器 不 会 提示 用 户 输入 立即 命令 (Immediate Command), 
du TS. HI 等 ， 也 就 是 不 能 对 其 进行 跟踪 和 挂 起 的 操作 。 如 果 试 图 中 断 在 ISPF 面板 中 执 
行 的 REXX 程序 ，ISPF 会 列 出 提示 信息 ， 表 明 当 前 的 命令 正 被 终止 ， 并 且 关 闭 当前 屏幕 
输出 ， 同 样 不 会 有 TS 和 HI 等 命令 的 操作 。 


9.6 ”交互 式 调试 工具 的 使 用 


交互 调试 工具 使 用 户 能 够 交互 地 控制 程序 的 执行 。 在 交互 过 程 当中 ， 用 户 可 以 单 步 
执行 指令 、 插 入 指令 、 重 新 执行 上 一 步 指令 等 。 使 用 交互 调试 工具 ， 就 像 Linux 下 使 用 
GDB 一 样 ， 可 以 更 为 高 效 地 调试 REXX 程序 。 事 实 上 ， 交 互 调试 可 以 这 样 理解 : 为 非 交 
互 的 TRACE 添加 断 点 ， 使 得 每 一 次 跟踪 调试 后 ， 程 序 暂 停 执行 并 等 待 用 户 输入 ， 以 此 
达到 交互 的 目的 。 

启动 交互 调试 工具 有 两 种 方法 ， 一 种 是 使 用 TRACE 指令 的 ?选项 ， 另 一 种 是 使 用 
EXECUTIL TS 命令 。 两 种 方法 的 区 别 在 于 ， 如 果 REXX 程序 调用 了 其 他 程序 或 函数 ， 
则 TRACE ? 指令 不 能 跟踪 外 部 程序 ,但 是 可 以 在 程序 返回 后 继续 跟踪 , 而 EXECUTIL TS 
命令 则 可 以 连同 外 部 程序 一 起 调试 跟踪 。 
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9.6.1 TRACE ?命令 


使 用 TRACE ?指令 可 以 开启 交互 式 调试 模式 ， 并 且 会 提示 用 户 交 互 式 调试 已 开启 ， 
可 以 在 TSO/E 环境 下 的 当前 控制 台 终 端 进行 REXX 程序 的 调试 。 其 使 用 方法 在 第 2 章 已 
经 提 及 ， 这 里 再 简单 回顾 一 下 。 为 了 使 用 交互 调试 ,用 户 需 要 在 程序 中 加 入 TRACE ? 和 
跟踪 选项 。 例 如 TRACE ?I (TRACE ?Intermediates) 或 TRACE ?R (TRACE ?Result)。 
需要 注意 的 是 ，? 必 须 在 选项 之 前 ， 并 且 ? 和 选项 之 间 不 能 有 空格 。 例 如 : 


TRACE ?R 

ARG dest dsname . 

"TRANSMIT" dest "DA("dsname")" 

IF RC - 0 THEN 

SAY 'Transmit successful." 

ELSE 

SAY 'Return code from transmit was' RC 


对 于 上 述 示例 ， 在 调试 过 程 当中 ， 若 传 给 程序 的 参数 是 nodel.mel 和 new.exec, Jll 
每 一 步 的 调试 界面 将 类 似 于 以 下 程序 。 


2 *-* ARG dest dsname. 

>>> "NODE1.MEL" 

>>> "NEW.EXEC" 

». o" 

+++ Interactive trace. TRACE OFF to end debug, ENTER to continue. 


3 *-* "TRANSMIT" dest "DA("dsname")" 

>>> "TRANSMIT NODE1.MEL DA(NEW.EXEC)" 

0 message and 20 data records sent as 24 records to NODE1.MEL 
Transmission occurred on 05/21/2010 at 11:40:01. 


4 *-* IFRC = 0 
>>> "1" 
*-* THEN 


5 *-* SAY 'Transmit successful." 
>>> "Transmit successful." 


Transmit successful. 


通常 ， 在 进入 交互 式 模式 后 ， 其 后 所 有 的 TRACE 指令 都 将 被 忽略 ， 并 且 程序 会 在 
所 有 被 跟踪 的 指令 后 暂停 ， 此 时 ， 用 户 可 以 执行 以 下 3 种 操作 。 

COD 跳 过 当前 步骤 的 调试 。 输 入 空 行 ， 不 包括 任何 字符 和 空格 ， 使 编译 器 继续 执行 ， 
直到 下 一 次 暂停 。 例 如 在 TRACE ?A 指令 中 ， 这 种 方法 类 似 于 单 步 调试 ， 可 以 查看 每 一 
次 跟踪 暂停 时 的 结果 而 不 做 任何 操作 。 同 理 ， 若 使 用 的 是 TRACE ?E， 则 按 回 车 键 会 跳 
转 到 下 一 条 出 错 的 命令 处 。 
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(2) 重复 执行 上 一 条 语句 。 输 入 等 号 (=)， 不 包括 空格 ， 使 编译 器 重新 执行 上 一 条 
被 跟踪 的 语句 ， 执 行 的 语句 指 的 是 REXX 程序 里 的 指令 ， 不 包括 用 户 在 调试 过 程 中 插入 
的 指令 。 这 种 方法 适用 于 当 用 户 发 现 程序 中 的 一 些 变 量 赋值 错误 等 ， 更 正 后 查看 是 否 
变 了 原来 程序 的 执行 ， 就 可 以 重新 执行 一 次 ， 并 且 在 执行 之 后 ， 程 序 会 再 次 暂停 。 

G) 其 他 执行 指令 。 其 他 输入 , 可 以 是 一 行 或 多 行 REXX 指令 (包括 调用 其 他 REXX 
程序 或 CLIST)， 并 且 立 即 执行 这 些 输入 的 语句 ， 也 可 以 输入 TRACE 命令 来 改变 调试 选 
项 ,与 INTERPRET 指令 的 执行 相同 ,输入 的 语句 如 果 是 成 对 的 必须 要 匹配 , 如 DO-END。 
执行 的 语句 如 果 有 语法 错误 ， 将 显示 错误 信息 ， 并 提示 用 户 再 次 输入 。 在 语句 的 执行 期 
间 ， 不 会 再 进一步 跟踪 。 如 果 用 户 想 调试 下 一 条 语句 ， 可 输入 TRACE 指令 停止 当前 步 
的 调试 。 

一 个 常见 的 用 法 ， 是 插入 一 条 赋值 语句 ， 来 改变 一 个 变量 的 值 ， 从 而 改变 分 支 语句 
的 执行 ， 以 此 来 覆盖 各 个 分 支 。 见 下 例 ， 在 调试 时 ， 可 以 输入 VAR = 0 来 改变 分 支 的 
执行 。 

IF VAR = 0 THEN 

DO 

INSTRUCTION1 

END 

ELSE 

INSTRUCTION2 


注意 ， 有 些 指 令 反复 执行 ， 可 能 会 产生 一 定 的 风险 ， 因 为 在 这 些 指令 执行 之 后 编译 
器 不 会 暂停 ， 即 使 它们 处 于 被 跟踪 的 范围 之 内 。 这 些 语句 包括 : 

(D 循环 中 第 二 次 或 之 后 执行 的 DO 语句 。 

© END 语句 。 

(8 THEN. ELSE. OTHERWISE 和 空 语句 。 

(à) RETURN 和 EXIT 语句 。 

@ SIGNAL 和 CALL 语句 。 

© 引发 跟踪 事件 的 语句 。 

@ 产生 语法 错误 的 语句 ， 可 以 被 SIGNAL ON SYNTAX 跟踪 ， 但 是 不 能 重复 执行 。 

在 进入 交互 调试 模式 后 ， 可 以 使 用 如 下 方法 退出 。 

© 输入 TRACE O (OFF) 关闭 调试 跟踪 。 

Q) 输入 TRACE 而 没有 任何 选项 ， 关 闭 交 互 调试 ， 置 TRACE 选项 为 默认 值 ， 保 留 


并 继续 跟踪 。 
© 再 次 输入 TRACE ?关闭 交互 调试 , 不 把 TRACE 选项 置 为 默认 值 , 而 是 保留 原 值 ， 
并 继续 跟踪 。 


@ 再 次 输入 TRACE ?与 新 的 选项 ， 则 继续 跟踪 ， 并 使 用 新 的 调试 选项 。 
© 在 调试 时 ， 输 入 EXIT 指令 结束 调试 ， 因 为 它 可 以 终止 程序 的 运行 ， 所 以 调试 也 
就 随 之 终止 了 。 
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9.6.2 EXECUTIL TS 命令 


EXECUTIL TS 命令 和 TRACE ?R 指令 的 效果 是 一 样 的 , 只 不 过 EXECUTIL TS 还 可 
以 调试 REXX 程序 调用 的 外 部 程序 ， 而 TRACE ?R 则 不 能 。 

EXECUTIL TS 命令 发 起 的 位 置 可 以 是 REXX 程序 内 部 、TSO READY 模式 或 ISPF 
面板 。 


1. 在 REXX 程序 内 部 

如 果 在 REXX 程序 内 部 使 用 EXECUTIL TS 命令 ， 则 该 程序 的 剩余 部 分 以 及 它 所 调 
用 的 程序 和 同时 正在 运行 的 其 他 REXX 程序 都 将 被 跟踪 。 这 个 跟踪 过 程 将 持续 到 所 有 被 
跟踪 的 程序 执行 结束 或 者 使 用 任何 一 个 程序 中 使 用 了 EXECUTIL TS 命令 。 如 果 一 个 
REXX 程序 调用 了 一 个 CLIST 程序 ， 而 该 CLIST 程序 中 使 用 了 EXECUTIL TS 命令 ， 那 
么 当 程 序 返回 到 调用 的 REXX 程序 时 ， 该 REXX 程序 将 被 跟踪 。 


EXECUTIL TS 

A-1;B-2;C-3;D-4; 

IF (A»B) | (C< 2*D) THEN 

SAY 'AT LEAST ONE IS CORRECT' 
ELSE 

SAY 'BOTH ARE WRONG" 

EXIT 


7 *-* IF (A»B) | (C« 2*D) 
>>> ps 
*-* THEN 
8 *-* SAY "AT LEAST' 
>>> "AT LEAST ONE IS CORRECT" 
AT LEAST ONE IS CORRECT 
11 *-* EXIT 


2. 在 TSO READY 模式 下 

在 READY 模式 下 , 输入 EXECUTIL TS, 下 一 个 从 READY 模式 启动 的 REXX 程序 
将 被 调试 跟踪 。 并且, 该 REXX 程序 调用 的 其 他 程序 ， 也 会 被 调试 。 输 入 EXECUTIL TE 
可 以 结束 单 步 跟踪 模式 。 


READY 
EXECUTIL TS 


3. f£ ISPF 面板 下 

因为 在 READY 模式 下 可 以 调试 ， 同 样 ， 在 ISPF COMMAND 面板 也 可 以 输入 
EXECUTILTS 命令 ， 如 图 9-1 所 示 ， 并 且 在 EXECUTIL TS 命令 后 的 下 一 个 REXX 程序 
将 被 调试 ， 而 它 所 调用 的 程序 也 会 被 跟踪 。 注 意 ， 如 果 使 用 分 屏 ， 在 两 个 ISPF 面板 中 的 
程序 是 互 不 影响 的 ， 即 对 一 个 面板 中 的 程序 进行 跟踪 ， 不 会 影响 到 另 一 个 面板 中 的 程序 


的 
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执行 ， 因 为 它们 是 隶属 于 两 个 不 同 的 环境 的 。 


和 


序 。 


踪 


Menu List Mode Functions Utilities Help 
ISPF Command Shell 
Enter TSO or Workstation commands below: 


===> EXECUTIL TS 
Place cursor on choice and press enter to Retrieve command 


=> EXECUTIL TE 
=> TEST 

=> EXECUTIL TS 
=> 

=> 


图 9-1 输入 EXECUTIL TS 命令 后 的 界面 


+++ "TSO COMMAND TEST SYS00039 USERID.REXX ? TSO ISPF ?" 
1 类 一 类 /***REXX***/ 
2 *-* IF (A»B) | (C< 2*D) /* 进入 交互 式 调试 模式 ,和 TRACE ?R 相同 */ 


可 以 使 用 EXECUTIL TE 命令 结束 调试 , 既 可 以 在 交互 式 调试 中 执行 也 可 以 在 REXX 
序 中 事先 定义 好 。EXECUTIL TE 命令 可 以 终止 当前 程序 的 跟踪 ， 以 及 它 所 调用 的 程序 
其 他 正在 运行 的 程序 。 

+++ Interactive trace. TRACE OFF to end debug, ENTER to continue. +++ 

3 *-* A- 


sss mjn 
EXECUTIL TE /* 在 屏幕 上 输入 EXECUTIL TE 结束 跟踪 */ 
AT LEAST ONE IS CORRECT /* 调试 跟踪 结束 ,返回 */ 


注意 TE 命令 不 能 在 READY 模式 下 输入 ， 因 为 该 环境 下 没有 正在 运行 的 REXX 程 
但 是 ， 如 果 在 READY 模式 下 指定 了 EXECUTIL TS 命令 准备 对 下 一 个 程序 进行 跟 
， 而 后 又 指定 了 EXECUTIL TE 命令 ， 那 么 将 取消 对 下 一 个 程序 的 跟踪 。 


9.7 IRXIC 例 程 


TSO/E 还 提供 了 一 些 可 用 的 外 部 例 程 来 支持 和 编译 器 的 交互 操作 。 其 中 有 一 个 例 程 


是 ee 通过 它 可 以 调用 HI、HT、RIT、TS 和 TE 命令 。 该 例 程 可 以 用 在 汇编 或 其 他 


程序 


例 


级 语言 写成 的 程序 中 ， 来 控制 REXX 程序 的 执行 和 跟踪 过 程 。 


想 要 运行 TSO/E 提供 的 这 些 外 部 例 程 ， 需 要 有 一 个 编译 器 环境 ， 即 可 以 运行 REXX 


的 环境 , 在 TSO/E 环境 下 ,通过 登录 过 程 可 以 创建 一 个 运行 环境 。 关 于 TSO/E 外 部 
程 的 使 用 可 参见 TSO REXX Reference 红皮书 。 
程序 可 以 通过 CALL 或 LINK 宏 来 调用 IRXIC 例 程 ， 指定 IRXIC 为 入 口 名 称 。 首先 
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程序 需要 创建 一 个 参数 列表 ， 并 且 将 其 地 址 放 入 1 号 寄存 器 中 。 在 参数 列表 中 ， 指 定 要 
执行 的 操作 等 信息 ， 具 体 如 下 。 

(OD 参数 1 (4 位 )， 指 定 要 使 用 的 命令 ， 可 以 是 H、HT、RT、TS 4 TE. HI 表明 
暂停 对 REXX 程序 的 翻译 过 程 ， HT 表明 停止 REXX 程序 的 输出 ， 如 SAY 指令 等 ，RT 
表明 恢复 REXX 程序 的 输出 ，TS 和 TE 分 别 是 开启 和 停止 对 程序 的 跟踪 。 

(2) 参数 2 (4 位 )， 指 定 参数 1 所 指向 的 命令 的 长 度 。 

G) 参数 3(4 位)， 指 定 要 执行 的 命令 所 处 的 环境 ， 该 参数 是 可 选 的 ， 如 果 指 定 了 ， 
该 地 址 必须 是 有 效 的 ， 因 为 IRXIC 不 会 对 该 地 址 进行 检查 ; 如果 未 指定 ， 则 使 用 0 号 寄 
存 器 中 保存 的 地 址 值 。 

(D 参数 4 (4 位 )， 保 存 返 回 码 ， 该 参数 是 可 选 的 ， 如 果 未 指定 就 保存 在 15 号 寄存 
器 中 ， 如 果 指 定 了 ， 就 在 该 参数 和 15 号 寄存 器 中 都 保存 返回 码 。 

IRXIC 例 程 的 返回 码 如 表 9-2 所 示 。 


表 9-2 IRXIC 例 程 的 返回 码 


返回 码 描 述 

0 执行 成 功 

20 执行 有 错误 ， 通 过 系统 信息 给 用 户 提示 

28 IRXIC 例 程 无 法 找到 程序 的 编译 执行 环境 

32 参数 列表 包含 无 效 信息 ， 或 者 有 未 指定 的 必需 参数 
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本 章 结合 前 面 的 内 容 ， 根 据 主 机 系统 管理 与 维护 的 日 常 工作 需求 ， 提 供给 用 户 几 个 
典型 的 REXX 应 用 。 


10.1 综合 案例 一 


1. 案例 描述 
读 取 XML 数据 ， 根 据 XML 内 容 来 动态 创建 与 修改 文件 。 
2. 业务 逻辑 


REXX 程序 从 一 个 XML 文件 〈 某 个 顺序 数据 集 》 中 动态 读 取 数据 集 的 信息 ， 根 据 
这 些 信息 来 创建 数据 集 。 案 例 中 设计 了 3 个 数据 集 : 顺序 数据 集 (FB/80)、 扩 展 分 区 数 
据 集 (FB/80) 和 可 以 容纳 执行 模块 (Load Module) 的 扩展 分 区 数据 集 (U/0)。 

数据 集 创建 完 之 后 ， 要 求 在 顺序 数据 集中 新 增 一 条 记录 ， 在 扩展 分 区 数据 集中 增加 
ARR, 成 员 有 一 条 记录 内 容 ， 最 后 在 该 扩展 分 区 数据 集成 员 内 “追加 ”( 不 覆盖 原 内 
容 ) 一 条 新 记录 。 


3. 技术 点 
通过 TSO 命令 ALLOCATE 命令 完成 数据 集 的 分 配 创建 通过 EXECIO 提供 的 IO 
操作 完成 对 各 种 数据 集 的 读 写 。 通 过 数据 栈 的 QUEUE 以 及 STACK 操作 完成 数据 追加 。 


4. 案例 代码 


JO I ek eee REXX Sample Code 1 kkkkkkkkkkkk/ 


J[ e e e ee e e e e ke eek e e e e e e e e e e e e e e e e e e e e e e e e e e ke e e e A ee k k k kk k 


g+ Read dsnames from XML file ty 
/* SAMPLE.DSNAMES holds XML records as following : xy 
/* X«dsnl»SAMPLE.DS1.SEQ«/dsnl» wf 
/* <dsn2>SAMPLE .DS2.PDSE</dsn2> ky 
/* Xdsn1»SAMPLE.DS3.PDS«/dsn3» a 


J[ FCRC eee dee de e dee e de ke e de eee ehe ke ee de ek ee dee e ke ke ke ke eee ek e dee ke eee ede eee ee 
Address TSO 
"ALLOC DA('SAMPLE.DSNAMES') F(DSNAMES) OLD REUSE" 
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"EXECIO * DISKR DSNAMES (stem dsn. finis" 
"FREE F(DSNAMES)" 


f**k***kk******* parse dsn into three data set names ***iddkkkk/ 
parse upper value dsn.1 with "«DSN1»" seq name "«/DSN1»" 
parse upper value dsn.2 with "«DSN2»" pdse name "«/DSN2»" 
parse upper value dsn.3 with "«DSN3»" pds name "«/DSN3»" 


fee ee***** Allocate a (FB/80) SDS 关 类 炎炎 火炎 炎炎 炎炎 炎炎 火炎 炎炎 炎炎 炎炎 火炎 炎炎 炎炎 人 


"ALLOCATE DATASET('"seq name"') F(DAT1) NEW SPACE(50,20)", 
"DSORG(PS) RECFM(F,B) LRECL(80) BLKSIZE(8000)" 

"FREE F(DAT1)" 

say "A SDS has been allocated with the name " seq name 


/ 粮 炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 Allocate a (FB/80) PDSE Xx Xdoekekdekddekeekekekoekekekekek / 


"ALLOCATE DATASET('"pdse name"') F(DAT2) NEW SPACE(50,20) DIR(10)", 
"DSORG(PO) RECFM(F,B) LRECL(80) BLKSIZE(8000) DSNTYPE(LIBRARY)" 
"FREE F(DAT2)" 

say "A PDSE has been allocated with the name " pdse name 


/炎炎 炎炎 火炎 炎炎 炎炎 炎炎 炎炎 炎 Allocate a (U/0) PDS 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 人 


"ALLOCATE DATASET('"pds name"') F(DAT3) NEW SPACE(50,20) DIR(10)", 
"DSORG(PO) RECFM(U) LRECL(0) BLKSIZE(8000) DSNTYPE(PDS)" 

"FREE F(DAT3)" 

say "A PDS has been allocated with the name " pds name 


[XO H e e he he e he He ke de keke ke Write a line into new SDS kkk kk kkk kkk kkk k kkk k y 
"ALLOC DA('"seq_name"') F(SEQDD) OLD REUSE" 

QUEUE "New line d 

"EXECIO * DISKW SEQDD (FINIS " 

"FREE F(SEQDD)" 


[*********Create a new member with 1 record to PDSE ***** 火 火 火炎 火炎 火炎 火炎/ 
"ALLOC DA('"pdse name"(MEMBER1)') F(PDSEDD) OLD REUSE" 

[t Write a line into new member */ 

QUEUE "Record 1 " 

"EXECIO * DISKW PDSEDD (FINIS " 

"FREE F(PDSEDD)" 


/*********Append a new record into the member without overriding it***/ 
"ALLOC DA("pdse name" (MEMBER1)) F(PDSEDD) SHR REUSE" 

"NEWSTACK" /* Create a new data stack for input only */ 
"EXECIO * DISKR PDSEDD (FINIS" 

QUEUE 'New Record 2' /* Append a new record into stack */ 

QUEUE '' /* Add a null line to indicate the end of the information */ 
"EXECIO * DISKW PDSEDD (FINIS" 
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"DELSTACK" /* Delete the new data stack */ 
"FREE F(PDSEDD)" 
say "The content of the member in PDSE has been updated " 


10.2 ”综合 案例 二 


1. 案例 描述 
RACF 作业 的 自动 提交 执行 。 


2. 业务 逻辑 

通过 REXX 程序 自动 提交 RACF 作业 ， 设 计 了 以 下 3 个 单独 的 作业 : 

CD 创建 一 个 组 ， 若 成 功 ， 则 继续 执行 下 一 作业 ;否则 给 出 作业 错误 消息 。 

(2) 在 该 组 中 创建 一 个 用 户 ， 若 成 功 ， 则 继续 执行 下 一 作业 ;否则 给 出 作业 错误 
消息 。 

(3) 保护 该 用 户 数据 集 ， 在 上 面 执行 过 程 中 如 果 失 败 ， 则 终止 程序 给 出 具体 错误 
消息 。 

3. 技术 点 

通过 QUEUE 构建 需要 执行 的 JCL 作业 ， 通 过 SUBMIT 命令 进行 提交 ; 使 用 
OUTTRAP 截取 SUBMIT 提交 后 的 终端 输出 ， 并 由 此 获取 JOBNAME 以 及 JOBID。 

用 QUEUE 构建 SDSF 的 批 处 理 命令 ， 并 将 其 写 入 SDSF 的 批 处 理 标准 输入 接口 文 
件 isfin 并 执行 ， 将 RACF 作业 中 的 标准 输出 SYSTSPRT 复制 到 临时 文件 处 理 。 判 断 临 
时 文件 内 容 的 第 三 行 消息 确定 该 作业 是 否 顺 利 执行 (出 现 READY 为 成 功 ， 和 否则 为 具体 
的 RACF 错误 消息 )。 


4. 案例 代码 

JO RR ee ek REXX Sample Code 2 女 炎 炎炎 火炎 炎炎 火炎 炎炎 人 
JR eee oko eee koe ook koe dee e f 
/* build RACF JCLs using QUEUE */ 
[t subroutine CHECK MSG sets maxcc to determine the result */ 
T* stepl : add a group GRPA1 * 
px step2 : create a user ID001 *y 
f* step3 : protect the dataset for ID0001 ad 
————À A IE, 
maxcc - 0 

f SO e eee dee ke de e de ke step 1 : add a new group He e e Ae de e e e de dee e e ke ke ek 
newstack 


QUEUE "//ADDGRP JOB NOTIFY=&SYSUID " 
QUEUE "//IBMUSER EXEC PGM-IKJEFTO1,DYNAMNBR-20,REGION-512K " 
QUEUE "//SYSPRINT DD DUMMY " 
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QUEUE "//SYSTSPRT DD SYSOUT-* " 
QUEUE "//SYSTSIN DD * " 


QUEUE " AG GRPA1 SUPGROUP(GRPA) OWNER (GRPA)" 

QUEUE "// " 

QUEUE "$$ T 

O = OUTTRAP ("OUTPUT.",, "CONCAT") /* Trap output of submitting 


ADDRESS TSO "SUBMIT * END($$)" 
O- OUTTRAP (OFF) 
delstack 
SAY OUTPUT.2 
PARSE VAR OUTPUT.2 'JOB' jobname' ('jobid') 'STATUS 
SAY "The job submitted is " jobname 
SAY "The jobid assigned is " jobid 
CALL CHECK MSG 
if maxcc<>0 then 
exit 
else 
nop 


f sokdeieekeiekeieke step 2: create a new user**žkkkkkkkkkkkkk/ 
newstack 

QUEUE "//ADDUSR JOB NOTIFY=&SYSUID " 

QUEUE "//IBMUSER EXEC PGM=IKJEFT01,DYNAMNBR=20, REGION=512K " 
QUEUE "//SYSPRINT DD DUMMY " 

QUEUE "//SYSTSPRT DD SYSOUT-* " 

QUEUE "//SYSTSIN DD * " 


QUEUE " AU ID001 DFLTGRP(GRPA1) PASS(PASS)" 
QUEUE "// m 
QUEUE "$$ d 


O = OUTTRAP ("OUTPUT.",, "CONCAT") 
ADDRESS TSO "SUBMIT * END($$)" 
O- OUTTRAP (OFF) 
delstack 
SAY OUTPUT.2 
PARSE VAR OUTPUT.2 'JOB' jobname'('jobid') STATUS 
SAY "The job submitted is " jobname 
SAY "The jobid assigned is " jobid 
CALL CHECK MSG 
if maxcc<>0 then 

exit 
else 


nop 


fooeeieeeeeieeiekkstep 3: protect resource k*k kk kkk kkk kxk / 
newstack 
QUEUE "//PROTSD JOB NOTIFY=&SYSUID " 


zy 
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QUEUE "//IBMUSER EXEC PGM-IKJEFT01,DYNAMNBR-20,REGION-512K " 
QUEUE "//SYSPRINT DD DUMMY " 

QUEUE "//SYSTSPRT DD SYSOUT-* " 

QUEUE "//SYSTSIN DD * " 


QUEUE " ADDSD 'ID001.**' uacc(none) id 
QUEUE "// B 
QUEUE "$$ " 


O = OUTTRAP ("OUTPUT.",, "CONCAT") 
ADDRESS TSO "SUBMIT * END($$)" 
O- OUTTRAP (OFF) 
delstack 
SAY OUTPUT.2 
PARSE VAR OUTPUT.2 'JOB' jobname' ('jobid') 'STATUS 
SAY "The job submitted is " jobname 
SAY "The jobid assigned is " jobid 
CALL CHECK MSG 
if maxcc«»0 then 

exit 
else 

nop 


/*xkkkkkkkkksubroutine: check mSg*** 火 火炎 火炎 火炎 火炎 炎炎 炎炎 炎炎 炎炎 类 类 了/ 


CHECK MSG: 


if(jobname - "") then do 
return "Jobname empty" 
end 

if(jobid = "") then do 


return "JobId empty" 

end 

/* write SDSF Commands to QUEUE */ 

queue "SET CONFIRM OFF" 

queue "OWNER *" 

queue "PREFIX *" 

queue "ST" 

queue "SELECT "jobname jobid /* locate current job */ 
queue "AFD REFRESH" 

queue "++?" 


queue "FIND SYSTSPRT" /* locate SYSTSPRT */ 
queue "++S" 
queue "PRINT FILE TEMP" /* save output into temp file 


queue "PRINT" 

queue "PRINT CLOSE" 
queue "END" 

queue "" 

"alloc dd(isfin) new reuse", 


"recfm(f,b) lrecl1(80) blksize (27920) space(1) tracks" 


e 
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"alloc dd(isfout) new reuse ", 

"recfm(f,b,a) lrecl(301) blksize(27993) space(1) cyl" 
"ALLOCATE DATASET('SAMPLE.SDSF.TEMP') F(temp) NEW SPACE(50,20)", 
"DSORG(PS) RECFM(V) BLKSIZE(8000)" 

/* write input-dataset from QUEUE */ 
"execio * diskw isfin (finis" 
/* SDSF-Call */ 
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('4-25,80')" /*INVOKE SDSF */ 
"free F(isfin,isfout,temp)" 
"ALLOC F(INPDD1) DA('SAMPLE.SDSF.TEMP') SHR" 
"execio * diskr INPDD1 (stem out. finis" 
"delete 'SAMPLE.SDSF.TEMP'" 
/* check the message in the 3 line of content */ 
IF out.3 = 'READY'then 
do 
SAY jobname " has been run successfully" 
maxcc=0 

end 
else 

do 

say jobname " failed to complete successfully due to " out.3 
maxcc-12 

end 
return 


1. 案例 描述 


控制 台 命令 交互 。 


2. 业务 逻辑 
在 REXX 程序 中 ， 使 用 MVS Console 命令 启动 一 个 CICS， 根 据 返 回信 息 判断 控制 
台 命 令 是 否 执行 成 功 ， 同 时 检测 启动 过 程 中 是 否 需要 用 户 命令 应 答 ， 并 输入 相关 消息 。 


3. 技术 点 

通过 CONSPROF SOLDISPLAY(no) UNSOLDISPLAY(no) 将 输出 信息 暂 存在 消息 组 
存 表 中 , 并 通过 CARTO 标 定 执行 命令 对 应 的 输出 信息 , 并 用 GETMSGO 取 回 暂 存 信 息 进 
行 处 理 。 

4. 案例 代码 


/类 火光 炎炎 火炎 类 类 炎炎 REXX Sample Code 3 kkkkkkkkkk e f 
[CK ke de dede dee ke dock kokckokokedededokok oko kokckdededekokokekokokokekeedekek de f. 


[* CONSOLE ACTIVATE to issue SYSCMD Hn 
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/* use CART to identify the message associated with SYSCMD *; 
/* use DFHSI1517 as indicator of success message in CICS start-up */ 
/* RC of GETMSG() : *J 
g» 0 : Processing successful; a message has been returned +7 
g” 4 : Processing successful; a message not found *y 
£* 8 : Processing successful; Attention Key to end GETMSG Wi 
/* other: Processing unsuccessfully A 


JF e e ke e e he ke ke ke e e e He ke ke ke e e e e e ke ke ke e e e He e ke ke ke e e E A ke ke ke e e e e e e ke e e e k kk kk kk k k k k Y 


"CONSPROF SOLDISPLAY (no) SOLNUM (400) UNSOLDISPLAY (no) UNSOLNUM(500)" 
"CONSOLE ACTIVATE" /* Open Console session */ 
"CONSOLE SYSCMD ($S CICSAOR1) CART('DFHMSG')" 
rc= GETMSG (msg.,'sol','DFHMSG',,60) /* Retrieve Command Response  */ 
if rc- 4 then 
do 
x= GETMSG (msg., 'sol','DFHMSG') 
end 
/* DFHSI1517 as success message indicator */ 
if rc - 0 then 
do i = 1 to msg.0 
if pos('DFHSI1517',msg.i)«»0 then 
do 
say "CICS has been started successfully " 
exit 
end 
else 
nop 
end 
/* Issue Display System Request Command */ 
"CONSOLE SYSCMD(D R,JOB-CICSAOR1) CART('RESP')" 
/* Retrieve Outstanding Msg */ 
request = GETMSG(resp., 'EITHER', 'RESP',, 60) 
if request - 0 then 
do 
say " Please reply all the outstanding messages " 
do ix = 1 to resp.0 
say resp.ix 
end 
end 
else 
say "GETMSG error retrieving message. Return code is" rc 
"CONSOLE DEACTIVATE" /* Close Console Session */ 
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1. 实验 目的 
登录 TSO。 实 验 后 ， 学 生 应 该 掌握 TSO 的 登录 。 


2. 实验 介绍 
通过 本 实验 ， 掌 握 登 录 TSO 的 步骤 。 


3. 实验 步骤 
(1) 输入 LOGON REXXUxx， 登 录 TSO， 出 现 的 界面 如 图 11-1 所 示 。 


z/OS V1R5 Level 0403 IP Address - 


220.152.168 .239 
VTAM Terminal = A06TSO28 


Application Developer System 
// 0000000 SSSSSSS 


zzzzzz  // 00 OO SS 
zz // 00 OO  ÁSSSS 


zz // 00 oo SS 
zzzzzz  // 0000000  SSSSSSS 


System Customization - ADCD.ZOSV1R5.* 


—» Enter "LOGON" followed by the TSO userid . Example "LOGON IBMUSER " or 


Enter L followed by the APPLID 
—» Examples : "L TSO", "L CICS", "L IMS3270 


LOGON REXXU01 


图 11-1 用 户 登录 TSO 


(2) 进入 TSO 登录 界面 ， 输 入 初始 密码 ， 然 后 根据 系统 提示 修改 密码 ， 如 图 11-2 
所 示 。 
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一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 TSO/E LOGON ----------------------------------- 
IKJ56714A Enter current password for RACFUOl 


Enter LOGON parameters below: RACF LOGON parameters: 
Userid ===> REXXU01 
Password New Password ===> 
Procedure ===> IKJ#REXX Group Ident ===> 
Acct Nmbr ===> ACT#REXX 
Size ===> 4096 
Perform ===> 
Command ===> ISPF 
Enter an 'S' before each option desired below: 

-Nomail -Nonotice -Reconnect -OIDcard 


PFl/PF13 ==> Help PF3/PF15 ==> Logoff PAl ==> Attention PA2 ==> Reshow 
You may request specific help information by entering a '?' in any entry field 


图 11-2 TSO 登录 界面 


(3) 进入 TSO 界面 ， 遇 到 *** 直 接 按 回 车 键 ( 右 Control g) 即 可 进入 ISPF 操作 界 
面 ， 如 图 11-3 所 示 。 


ICH700011 REXXUO01 LAST ACCESS AT 15:56:23 ON SATURDAY, JUNE 2, 2007 
IKJ56455I REXXUO01 LOGON IN PROGRESS AT 18:08:05 ON JUNE 2, 2007 
IKJ569511 NO BROADCAST MESSAGES 


ek kc e ke ke Ae e ke ke ko kk he hee kk khe hehe kk kk hehe dee kk kk hehehe e e e e e ek ehh de eek khe hee kk kk hee 


WELCOME STUDENT TO 


MAINFRAME TECHNOLOGY TRAINING 


*o* 3k ttt ttet 


à E 
Kk kk kc kc kc kk ke e kk kc ke ke ek ek kk c ke kk e e kk kk eee ke kk ee eek ek eek kc kde kk dee 


xk 


图 11-3 TSO 登录 过 程 
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(4) ISPF 主 界面 如 图 11-4 所 示 。 


Menu Utilities Compilers Options Status Help 
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
ISPF Primary Option Menu 
0 Settings Terminal and user parameters User ID . : REXXU01 

1 View Display source data or listings Time. 18:10 
2 Edit Create or change source data Terminal. 3278 
3 Utilities Perform utility functions Screen. . : 1 
4 Foreground Interactive language processing Language. : ENGLISH 
5 Balch Submit job for language processing Appl ID . : ISR 

6 Command Enler TSO or Workslalion commands TSO logon : ISPFPROC 
7 Dialog Test Perform dialog testing TSO prefix: REXXUO1 
9 IBM Products IBM program development products System ID : P390 

10 SCLM SW Configuration Library Manager MVS acct. ACTÉREXX 
11 Workplace ISPF Object/Action Workplace Release . : ISPF 5.5 
M More Additional IBM Products 
MQ MQAPPS MQSeries ISPF Utilities 

Enter X to Terminate using log/list defaults 

Option 

Fl-Help F2-Split F3-Exit F7-Backward  F8-Forward F9-Swap 
FlO-Actions Fi12-Cancel 


图 11-4 ISPF 主 界面 


11.2 REXX 基础 实验 一 


1. 实验 目的 

使 用 REXXTRY 和 SAY 指令 ; 用 REXX 执行 算术 运算 和 IO 操作 。 实 验 后 ， 学 生 
应 该 掌握 以 下 技能 。 

e 使 用 REXXTRY。 

e 使 用 SAY 指令 。 

e 进行 语句 续 行 。 

e 读 写 终端 。 

o 用 REXX 进行 算术 运算 。 

2. 实验 介绍 

通过 使 用 REXXTRY 程序 ， 了 解 各 类 REXX 语句 的 含义 和 特点 。 


3. 实验 步骤 
(1) 登录 TSO， 输 入 以 下 REXX 程序 代码 ， 并 命名 为 REXXTRY。 
File Edit Edit Settings Menu Utilities Compilers Test Help 


SSS88588888555335888585355555358555355555555553555555555555555555555555555555 
EDIT yourid.REXX.LAB(REXXTRY) - 01.02 Columns 00001 00072 
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Command ===> Scroll ===> CSR 
kkkkkk e ke ce he ke ke e ke ke e ke ke ke heec ke cec e ek ke ke e Top of Data ******* kk kk k kk koe koe ke eek e ke ke e 


000100 
000200 
000210 
000220 
000230 
000300 
000400 
000500 
000600 
000700 
000800 


kk ke e e 


/* INTERACTIVE REXX INSTRUCTION EXECUTION */ 
SAY "EXEC REXXTRY ALLOWS YOU TO INTERACTIVELY EXECUTE " 
SAY "REXX INSTRUCTIONS . EACH INSTRUCTION STRING IS " 
SAY "EXECUTED WHEN YOU PRESS ENTER ." 
SAY "TO END , TYPE EXIT ." 
DO FOREVER 
SAY "REXXTRY :" 
PARSE EXTERNAL LINE 
IF LINE - "EXIT " THEN LEAVE 
INTERPRET LINE 
END 


kkkkkkkkkkkkkkkkkkkkkkk Bottom of Data 六 炎炎 炎炎 火炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎炎 炎 


(2) 在 ISPF 的 命令 行 ， 输 入 TSO EXEC 'yourid.REXX.LABGREXXTRY)'， 观 察 屏 幕 


提示 的 内 容 。 


(3) 当 运 行 REXXTRY 的 时 候 ， 输 入 以 下 语句 ， 观 察 输出 结果 。 


1 Say REXX beats java 

2 Say Rexx 'beats' java 

3 Say Rexx 'beats' java 

4 a = Rexx 

5 b = eats 

6 c = java 

7 Say abc 

8 Say abbc 

9 Say a 'b' bc 

10 Saya 'b' Ill bc 

11 Say a 'b'bc 

12 Say abc 

13 a - "Rexx"; b - "eats"; c - "Java beans for breakfast" 
14 Say abc 

15 Saya Ill b Ill c 

16 Saya |l b || "fresh" c 

17 Say 5*4 9 * 33 - 2 / (7 + (5*45)) 
18 Say 'ci'x 

19 Say 'c2'x 


20 Say '1100 0001'b 
21 Say '1100 0011'b 
22 Trace R 

23 Say hello 

24 Trace N 

25 11111 

26 Exit 
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(D 算术 运算 练习 。 要 求 编写 一 个 REXX 程序 MATH1， 完 成 以 下 操作 : 

(D 提示 用 户 输入 2 个 数字 。 

Q 从 键盘 接收 这 2 个 数字 。 

© 首先 显示 用 户 输入 的 数字 内 容 ， 然 后 对 它们 进行 加 、 减 、 乘 和 除法 运算 ， 并 将 结 
果 显 示 在 屏幕 上 。 

例如 ， 如 果 用 户 输入 25 和 4 这 2 个 数字 ，REXX 程序 的 输出 结果 如 下 。 


Please enter two numbers 


25 4 

You entered 25 and 4. 
25 * 4 - 29 
25-4-21 

25 * 4 = 100 

25 /4= 6.25 


25 divided by 4 is 6 with a remainder of 1 


11.3 REXX 基础 实验 二 


1. 实验 目的 

进一步 地 了 解 REXX 各 指令 的 含义 ， 学 习 条 件 分 支 语 句 的 使 用 。 实 验 后 ， 学 生 应 该 
掌握 ， 

e 使 用 Parse Arg 指令 。 


使 用 条 件 分 支 IF-THEN-ELSE 语句 。 


2. 实验 介绍 
运用 REXXTRY 进行 逻辑 运算 、 条 件 分 支 [Then-Else 语句 以 及 Parse Arg 指令 的 实 
验 ; 并 对 实验 一 的 步骤 (4) 进行 改进 。 


3. 实验 步骤 
(OD 登录 IPSF， 选 择 选项 6， 进 入 TSO 命令 面板 如 图 11-5 所 示 。 


Menu List Mode Functions Utilities Help 


ISPF Command Shell 3 Members processed 
Enter TSO or Workstation commands below: 


===> 


Place cursor on choice and press enter to Retrieve command 


=> 
=> 


图 11-5 TSO 命令 面板 
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(2) 请 在 系统 管理 员 的 帮助 下 ， 把 REXXTRY 程序 放 入 到 系统 REXX 库 中 。 然 后 在 
TSO 命令 面板 中 执行 如 下 命令 。 


REXXTRY chives dill fennel sage thyme 
Say 555 = 555 

Say 555 = 556 

Say 555 = 555.0000000001 
a=1;b=2;c=3 

Say abc 

Say a = a 

Say a = b 

Say (a + b) ^c 

answer = " YES " 


(O0 0-100550 N H^ 


Say answer - "YES" 
Say answer -- "YES" 
Say answer - "yes" 


&Q(CONH^OÓO 


If answer - 'YES' Then Say 'The answer is yes'; Else Say 'The answer 
is no' 

5 Arg parms 

6 Say parms 

7 Parse Arg parms 

8 Say parms 

9 Argabcdef 


20 Say a 
21 Say b 
22 Say c 
23 Say d 
24 Say e 
25 Say f 


26 Arg fulllist 

27 Parse Var fulllist item fulllist 

28 Say item 

29 Say fulllist 

Repeat steps 27 to 29 until you understand what is happening here. 


G) 对 实验 一 (步骤 (4)) 的 MATHI 进行 如 下 改变 ， 生 成 REXX 新 程序 MATH2， 
QD 在 命令 行 中 直接 输入 算术 运算 所 需 的 2 个 数字 参数 。 
© 如 果 第 2 个 数字 为 0， 则 不 要 进行 除法 运算 。 
例如 ， 如 果 用 户 在 命令 行 中 键入 数字 21 和 0， 则 REXX 程序 的 输出 结果 如 下 。 


COMMAND ===> tso math2 21 0 
You entered 21 and 0. 

21 + 0 = 21 

21- 0-221 
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21 * 0 2 0 


The second number is 0: division cannot be done. 


11.4 REXX 基础 实验 三 
1. 实验 目的 
学 习 在 REXX 程序 中 运用 循环 控制 语句 。 实 验 后 , 学 生 应 该 掌握 使 用 循环 控制 语句 。 


2. 实验 介绍 
对 实验 二 中 的 MATH2 程序 进行 改进 ， 加 入 循环 控制 语句 。 


3. 实验 步骤 
对 实验 二 〈 步 骤 GD 的 MATH2 进行 如 下 改进 ， 生 成 REXX 新 程序 MATH3, H 
求 如 下 : 


O 必须 接收 到 2 个 参数 ， 否 则 程序 将 一 直 提 醒 用 户 输入 。 
@ 用 户 输入 Exit 可 退出 运算 。 
例如 ，MATH3 程序 的 一 个 有 效 示例 如 下 : 


COMMAND ===> tso math3 
Please enter two numbers: 


10 

Please enter two numbers: 
10 5 

You entered 10 and 5. 
1045-15 

10-525 

10 * 5 = 50 

10/522 


10 divided by 5 is 2 with a remainder of 0 


11.5 REXX 函数 与 子 例 程 调用 


1. 实验 目的 

通过 实验 ， 学 习 REXX 中 函数 和 子 例 程 的 调用 方式 。 实 验 后 ， 学 生 应 该 掌握 编写 和 
调用 REXX 函数 以 及 子 例 程 。 

2. 实验 介绍 

分 别 用 函数 和 子 例 程 两 种 方式 实现 求 阶乘 nl， 体 会 函数 和 子 例 程 编写 以 及 调用 方式 
的 不 同 ， 子 函数 和 子 例 程 分 别 用 递归 和 非 递归 两 种 逻辑 实现 。 


3. 实验 步骤 
编写 REXX 程序 。 要 求 : 
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CD 函数 用 递归 逻辑 完成 阶乘 运算 。 

© 子 例 程 用 非 递归 逻辑 完成 阶乘 运算 。 

© 在 主 调 程序 中 分 别 调用 函数 和 子 例 程 计算 不 同 数值 的 阶乘 运算 结果 nt. 并 相互 
比较 运算 结果 。 

有 效 示例 如 下 : 


COMMAND ==>TSO Lab 5 
Please enter the number : 


THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 
THE FACTORIAL OF 


FROM FUNCTION IS T 
FROM SUBROUTINE IS 1 
FROM FUNCTION IS £2 
FROM SUBROUTINE IS : 2 
FROM FUNCTION IS 6 
FROM SUBROUTINE IS : 6 
FROM FUNCTION IS : 24 
FROM SUBROUTINE IS : 24 
FROM FUNCTION IS : 120 
FROM SUBROUTINE IS : 120 
FROM FUNCTION IS : 720 
FROM SUBROUTINE IS : 720 


11.6 ”数据 解析 实验 


DammimwmwNbmn PP 


1. 实验 目的 
学 习 如 何在 REXX 中 进行 数据 解析 (Parsing)。 实 验 后 ， 学 生 应 该 掌握 使 用 Parse 的 
有 关 指 令 对 数据 进行 解析 。 


2. 实验 介绍 
使 用 REXXTRY 对 数据 进行 分 析 。 


3. 实验 步骤 
执行 REXXTRY 程序 ， 然 后 输入 以 下 命令 ， 观 察 系统 输出 结果 。 


quote = 'Experience is the best teacher." 

parse var quote wordl word2 word3 

say wordl 

say word2 

say word3 

parse var quote wordl word2 word3 word4 word5 word6 
say wordl 


say word2 


o 0-10 00 NWN P^ 


say word3 
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10 say word4 

11 say word5 

12 say word6 

13 parse value quote with wordl word2 word3 
14 say wordl 

15 say word2 

16 say word3 

17 parse var quote wordl word2 15 word3 3 word4 
18 say wordl 

19 say word2 

20 say word3 

21 say word4 

22 parse var quote 15 v1 +16 -12 v2 +2 1 v3 +10 
23 say v1 

24 say v2 

25 say v3 

26 parse var quote 1 v1 *11 v2 *6 v3 -4 v4 
27 say v1 

28 say v2 

29 say v3 

30 say v4 

31 first- 7 

32 parse var quote 1 vl -(first) v2 +6 v3 
33 say v1 

34 say v2 

35 say v3 


11.7 REXX 错误 处 理 与 调试 机 制 实验 


1. 实验 目的 

掌握 REXX 的 错误 处 理 方法 以 及 常用 的 调试 机 制 。 实 验 后 ， 学 生 应 该 掌握 : 

e 使 用 基本 的 错误 处 理 指令 。 

o 基本 的 程序 调试 。 

2. 实验 介绍 

使 用 异常 与 错误 处 理 指令 SIGNAL 以 及 TRACE。 

3. 实验 步骤 

CD 在 前 面 的 所 有 实验 程序 中 加 入 以 下 两 条 容错 指令 ， 并 在 相应 的 指令 下 书写 相应 
的 恢复 代码 ， 然 后 重新 执行 REXX 程序 ， 观 察 容错 处 理 效果 。 


SIGNAL ON NOVALUE 
SIGNAL ON ERROR 
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执行 SIGNAL ON ERROR 后 的 界面 如 图 11-6 所 示 。 


/loo 


000002 
000003 


000008 


/* REXX */ 
SIGNAL ON ERROR 
"ALLOC DA(new.data) LIKE(old.data)" 


“LISTDS 2" 


000011 
000012 
000013 


EXIT 


ERROR: 


000014 
00015 


— 


(2 


SAY 'The return code from the command on line' SIGL 'is' RC 


/* 以 上 将 显示 : The return code from the command on line 8 is 12 */ 


图 11-6 SIGNAL ON ERROR 示例 


为 所 有 完成 的 程序 添加 交互 调试 命令 TRACE ?R， 观 察 程 序 执行 。 


11.8 执行 宿主 命令 实验 


1. 实验 目的 

掌握 如 何 执行 宿主 命令 (Host Command)。 实 验 后 ， 学 生 应 该 掌握 宿主 命令 的 调用 。 

2. 实验 介绍 

本 实验 步骤 (1) 将 使 用 REXXTRY 调用 各 类 不 同 的 命令 。 

3. 实验 步骤 

COD 执行 REXXTRY 程序 ， 然 后 输入 以 下 命令 ， 观 察 系统 输出 结果 。 

1 "avg 5, 7" 

2 say rc 

3 address ispexec 

4 say rc 

5 "avg 5, 7" 

6 address ispexec 

1 "control errors return" 

8 say rc 

9 "math2 6 9" 

10 say rc 

11 "display panel(XXXXXXXX)" 
这 里 xxxxxxxx 可 以 是 下 面 任何 一 个 面板 名 称 : DGTHDUSO. ERB649I0. ICQDL1OH. 
FLMHTSOT. ISPOPT1. ISR91192 

12 say rc 


输入 以 上 列表 中 其 他 的 面板 名 称 , 观察 返回 码 ;输入 一 个 不 存在 的 面板 名 称 NONEXIST. 观 
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察 输入 码 . 
13 address link 
14 "iefbri4" 
15 say rc 
16 address tso 'ALLOC DA(NEW.DATA) LIKE(OLD.DATA) NEW' 


其 中 NEW.DATA 和 OLD.DATA 分 别 为 对 应 的 数据 集 名 称 。 

(2) 编写 一 个 程序 ， 询 问 用 户 是 否 了 解 功能 键 CHI PF f. 的 作用 ， 如 果 用 户 回答 为 
N 或 者 No， 则 转换 当前 宿主 环境 为 ISPEXEC 并 调用 ISPF 服务 命令 显示 帮助 面板 
ISPOPT3C. 


11.9 REXX 构建 并 提交 JOL 作业 


1. 实验 目的 
掌握 用 REXX 构建 并 提交 JCL 的 方法 。 实 验 后 , 学 生 应 该 掌握 使 用 REXX 语句 构建 
JCL 并 提交 一 个 JCL 作业 。 


2. 实验 介绍 
构建 一 个 使 用 IKJEFTOI 的 JCL 作业 ， 并 在 后 台 用 批 处 理 方式 调用 前 面 完成 REXX 
程序 的 Math2 程序 。 


3. 实验 步骤 
(1) 编写 一 个 REXX 程序 , 构建 下 面 所 示 的 JCL, 程序 片段 如 下 , 其 中 userid 为 TSO 
HP ID. 


//useridA JOB 'ACCOUNT, DEPT, BLDG','PROGRAMMER NAME', 
// CLASS-A, MSGCLASS-A, MSGLEVEL- (1,1) 

/ /REXX EXEC PGM-IKJEFTO01, DYNAMNBR-30, REGION-4096K 
//SYSEXEC DD  DSN-yourid.REXX.LAB, DISP-SHR 
//SYSTSPRT DD  SYSOUT-A 

//SYSTSIN DD * 

$math2 25 5 

/* 

// 


(2) 用 该 JCL 在 REXX 基础 实验 二 中 的 Mab2 程序 ， 并 传 入 25、5 两 个 参数 。 
(3) 在 SDSF 中 查看 Math2 的 运行 结果 。 


11.10 REXX 调用 ISPF 服务 实验 


1. 实验 目的 
掌握 调用 ISPF 服务 的 基本 方法 。 实 验 后 ， 学 生 应 该 掌握 调用 ISPF 服务 。 
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2. 实验 介绍 
调用 ISPF 的 相关 服务 ， 完 成 已 存在 数据 集 之 间 的 成 员 复制 。 
3. 实验 步骤 


编写 REXX 程序 COPYMEM， 完 成 以 下 操作 : 

© 输入 复制 的 源 数据 集 名 称 以 及 成 员 名 称 。 

© 输入 复制 的 目标 数据 集 名 称 以 及 目标 成 员 名 称 (该 目标 数据 集 为 已 经 创建 存在 的 
分 区 数据 集 )。 

O 源 数据 集成 员 被 复制 到 目标 数据 集 下 ， 并 命名 为 新 的 指定 名 称 。 

有 效 示例 如 下 : 


ENTER THE SOURCE DATASET AND ITS MEMBER TO COPY : 
yourid.SOURCE.LIB MEM1 

ENTER THE DESTINATION DATASET AND ITS MEMBER : 
yourid.TARGART.LIB MEM2 

COPYING MEMBER COMPLETED ! 


11.11 ISPF 编辑 宏 (Edit Macro) 实验 


1. 实验 目的 
学 习 使 用 ISPF 编辑 宏 (Edit Macro)。 实 验 后 ， 学 生 应 该 掌握 ISPF 编辑 宏 的 编写 和 
使 用 。 


2. 实验 介绍 
本 实验 利用 ISPF 编辑 宏 实现 为 文本 添加 头 信息 并 删除 多 余 行 。 


3. 实验 步骤 

用 REXX 编写 编辑 宏 REEDIT， 实 现 以 下 功能 : 

QD 将 分 区 数据 集成 员 的 源 文本 中 所 有 第 一 列 标 为 * 的 行 删 除 。 

@ 在 分 区 数据 集 的 成 员 文本 第 一 行 添加 一 个 头 行 注释 ， 例 如 /* Automatically 

Generate Head*/. 

@ 在 分 区 数据 集 的 成 员 文本 的 第 二 行 添加 相应 的 程序 员 信息 和 当前 日 期 信息 。 

注意 : 在 运行 编辑 宏 REEDIT 之 前 ， 需 要 进入 TSO 命令 面板 ， 完 成 下 面 两 个 步骤， 

e 使 用 ALLOCATE FI(SYSUEXEC) DA(yourid.:RSEXX.LAB' SHR REU 命令 为 
REEDIT 所 在 的 分 区 数据 集 分 配对 应 的 DD 名 (如 果 使 用 SYSPROC 或 SYSEXEC 
会 涉及 权限 和 管理 问题 ， 推 荐 使 用 SYSUEXEC 以 及 SYSUPROC )。 

e 使 用 ALTLIB ACTIVATE USER(EXEO) 命 令 使 当前 的 编辑 宏 REEDIT 可 用 。 

REEDIT 程序 源 文 本 示例 如 图 11-7 所 示 。 

输入 REEDIT 命令 并 按 回 车 键 ， 运 行 效果 如 图 11-8 所 示 。 
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000001 
000002 
000003 
000004 


deed 


000001 
000002 
000003 
000004 


dede 


Edit Edit Settings Menu Utilities Compilers Test Help 


TE02.REXX.LAB(TEXT) - 01.00 Columns 00001 00072 
RARAARRRAARRRAARARAAAARAAAAAAAA Top Of Data JOE AH OGGI de deke de de dede le e 
*TEST1: THIS LINE WILL BE DLETED BY EDIT MACRO 
TEST2 
TEST3 
*TEST4: TIIS LINE WILL BE DLETED BY EDIT MACRO 


dekdekoeeekeeekieeieoeeeeeeeeeeee* Bottom of Data Je*eekdokekcokokek ook eek 


Scroll ===> CSR 


图 11-7 数据 集 编辑 界面 


Edit Edit Settings Menu Utilities Compilers Test Help 


TE02.REXX.LAB(TEXT) - 01.00 Columns 00001 00072 
JOCOOOEOOOOOOOOO Oe Top of Data Je dde IO IO HOO Oeo 
/* AUTOMATICALLY GENERATED HEAD */ 

/*PROGRAMER: TEO2 DATE:4 OCT 2011*/ 
TEST2 
TEST3 


doekekedeeieiekekoeeieeekieoee eee Bottom of Data (4*4 990 0k kikiki kk kkk kk 


Command =: Scroll ===> CSR 


图 11-8 编辑 宏 运行 效果 


11.12 ”实验 参考 答案 


1. 基础 实验 一 
Math! 答案 


/rkkkkkkkkkkkkkkkkkkkREXX*kkkkkkkkkkkkkkkkkkkkkk/ 
SAY "PLEASE ENTER TWO NUMBER: ' 

PULL NUM1 NUM2 

SAY 'YOU ENTER ' NUM1 ' AND 'NUM2 

SAY NUM1'+'NUM2'='NUM1+NUM2 


SAY NUM1'-'NUM2 


NUM1-NUM2 


SAY NUM1'*'NUM2'='NUM1*NUM2 
SAY NUM1'/'NUM2'='NUM1/NUM2 
SAY NUM1 'DIVIDED BY 'NUM2 IS NUM1ZNUM2 'REMINDER IS' NUM1//NUM2 


2. 基础 实验 二 
Math2 答案 


J[ CCCII dede ekle e REX XOOkokokokokokokokokokedekekelekekekekekeeek f. 


ARG NUM1 NUM2 
SAY 'YOU ENTER ' NUM1 ' AND 'NUM2 
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SAY NUM1'+'NUM2'='NUM1+NUM2 
SAY NUM1'-'NUM2'-'NUM1-NUM2 
SAY NUM1'*'NUM2'-'NUMI1*NUM2 
IF NUM2--0 THEN 
SAY 'THE SECOND NUMBER IS 0;DIVISION CANNOT BE DONE' 
ELSE 
Do 
SAY NUM1'/'NUM2'-'NUM1/NUM2 
SAY NUM1 'DIVIDED BY 'NUM2 IS NUM1$NUM2 'REMINDER IS' NUM1//NUM2 
END 


3. 基础 实验 三 
Math3 答案 


J[ ORCI OleOle k elle ERE QOO edokok delicet f. 


DO WHILE ( (DATATYPE (NUM1, 'N' ))<>1| (DATATYPE (NUM2, 'N') «21)) 
IF NUM1--'EXIT'THEN 
DO 
SAY'GoodBye' 
EXIT 
END 
SAY 'PLEASE ENTER TWO NUMBER: ' 
PULL NUM1 NUM2 
END 
SAY 'YOU ENTER' NUM1 'AND' NUM2 
SAY NUMI1'-'NUM2'-'NUM1-*NUM2 
SAY NUM1'-'NUM2'-'NUM1-NUM2 
SAY NUM1'*'NUM2'-'NUM1*NUM2 
IF NUM2--0 THEN 
SAY 'THE SECOND NUMBER IS 0;DIVISION CANNOT BE DONE' 
ELSE 
DO 
SAY NUM1'/'NUM2'-'NUM1/NUM2 
SAY NUM1 'DIVIDED BY 'NUM2 IS NUMIZNUM2 'REMINDER IS' NUM1//NUM2 
END 


4. 函数 和 子 例 程 实验 
11.5 答案 


[r kkkkkkkkkkkkkkkkkkkREXX*kkkkkkkkkkkkkkkkkkkkkk/ 
SAY "PLEASE ENTER THE NUMBER: ' 
PULL NUMBER 
DO N=1 TO NUMBER 
SAY 'THE FACTORIAL OF' N 'FROM FUNCTION  IS:' FACTFUNC (N) 
CALL FACTROUTINE N 
SAY 'THE FACTORIAL OF' N 'FROM SUBROUTINE IS:' RESULT 
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p 


END 
RETURN 
Jo eee FUNCTION OOo f 
FACTFUNC : PROCEDURE 
N = ARG(1) 
IF N = 1 THEN 
RETURN 1 
RETURN N * FACTFUNC( N - 1) 
JO eee * SUBROUT INE 00e ee J 
FACTROUTINE: PROCEDURE 
ARG NUM 
S-1 
DO I-1 TO NUM 
S-S*I 
END 
RETURN S 


5. 执行 宿主 命令 实验 
11.8 答案 


[k kkkkkkkkkkkkkkkkkkkREXX*kkkkkkkkkkkkkkkkkkkkkk/ 
SAY 'DO YOU KNOW YOUR PF KEYS?' 
PULL ANSWER . 
IF ANSWER = 'NO' | ANSWER = 'N' THEN 

ADDRESS ISPEXEC "DISPLAY PANEL (ISPOPT3C)" 
ELSE 

SAY 'O.K. NEVER MIND." 


6. REXX 构建 并 提交 JCL 作业 实验 


11.9 实验 
/AkkkkkkkkkkkkkkkkkkkREXKkkkkkkkkkkkkkkkkkkkkkkk/ 

user = USERID() /* obtain user ident 
queue "//"user"A JOB ACCTR,NOTIFY-"user",MSGCLASS-A" 
queue "//REXX EXEC PGM-IKJEFTO1, " 

queue "// DYNAMNBR-30, REGION-4096K" 


queue "//SYSTSPRT DD SYSOUT-*" 

queue "//SYSEXEC DD DSN-"user".REXX.LAB, DISP-SHR" 
queue "//SYSTSIN DD *" 

queue "$math2 25 5" 


queue "//" 

queue "$$" 

o = OUTTRAP ("output.",, "CONCAT") 

ADDRESS TSO "SUBMIT * END($$)" /* submit jcl job */ 


o= OUTTRAP (OFF) 
SAY output.2 
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RETURN 


7. REXX 调用 ISPF 服务 实验 
11.10 实验 


J[ OCIO Rok k elle E REX QOO kokokelokekedekekokeletokeelekeieekek f 
TRACE E 
SAY 'ENTER THE SOURCE DATASET AND ITS MEMBER TO COPY' 
PULL FROMDS FROMMEM 
SAY 'ENTER THE DESTINATION DATASET AND ITS MEMBER' 
PULL TODS TOMEM 
ADDRESS ISPEXEC 
'LMINIT DATAID('DDVAR1') DATASET('''FROMDS''') ENQ(SHRW)' 
'LMOPEN DATAID('DDVAR1') OPTION(INPUT) LRECL('DLVAR') 
RECFM('RFVAR') ORG('ORGVAR')' 
'LMINIT DATAID('DDVAR2') DATASET('''TODS''') ENQ(SHRW)' 
'LMCOPY FROMID('DDVAR1') FROMMEM('FROMMEM') TODATAID('DDVAR2') 
TOMEM('TOMEM') ' 
IF RC - 0 THEN 
SAY 'COPYING MEMBER COMPLETED. ' 
ELSE 
SAY 'COPYING MEMBER FAILED." 
'LMCLOSE DATAID('DDVAR1')' 
RETURN 


8. ISPF 编辑 宏 实 验 
REEDIT 实验 


/rkkkkkkkkkkkkkkkkkkkREXX*kkkkkkkkkkkkkkkkkkkkkk/ 

ADDRESS ISPEXEC 

'ISREDIT MACRO' 

/*DELETE ALL LINES WITH '*' IN COL1*/ 

'ISREDIT RESET EXCLUDED ' 

"ISREDIT EXCLUDE ALL '*' 1" 

'ISREDIT DELETE ALL EXCLUDED' /* DELETE ALL LINES LEFT EXCLUDED*/ 
/*PUT THE INFORMATION IN HEAD*/ 

USER-USERID() 

CURRENT DATE-DATE() 

"ISREDIT LINE BEFORE 1 - '/* AUTOMATICALLY GENERATED HEAD */'" 
"ISREDIT LINE AFTER 1 = '/*PROGRAMER:"USER"  DATE:"CURRENT DATE"*/'" 
RETURN 
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